高分懸賞,vba題目 100

時間 2025-01-15 09:05:18

高分懸賞,vba題目

1樓:網友

第一題:用以下函式即可,a()為要排序的字元陣列。

注意以下過程中第乙個引數使用了byref

此方法比傳統的冒泡法快得多。

private sub ordernumbers(byref a() as string, optional byval ascdesc as string = asc")

dim min as long, max as long, num as long, first as long, last as long, temp as long, all as new collection, steps as long

ascdesc = ucase(ascdesc)

min = lbound(a)

max = ubound(a)

a(min)

steps = 1

for num = min + 1 to max

last =

if a(num) if a(num) >cdbl(all(last)) then a(num), after:=last: goto nextnum '加到最後一項。

first = 1

do while last > first + 1 '利用do迴圈減少迴圈次數。

temp = last + first) \2

if a(num) >cdbl(all(temp)) then

first = temp

elselast = temp

steps = steps + 1

end if

a(num), before:=last '加到指定的索引。

nextnum:

steps = steps + 1

nextfor num = min to max

if ascdesc = asc" then a(num) =cdbl(all(num - min + 1)):steps = steps + 1 '公升序。

if ascdesc = desc" then a(num) =cdbl(all(max - num + 1)):steps = steps + 1 '降序。

nextmsgbox "本陣列共經過 " steps & 步實現" &iif(ascdesc = asc", 公升序", 降序") 排序!",64, "information"

set all = nothing

end sub

2樓:網友

#include ""

void main()

int i,n[10],j;

printf("請輸入10個數字");

for(j=0;j<10;j++)

printf("從小到大排序");

scanf("%d",&n[j]);

if(n[j]>n[j+1])

n[j]=n[j+1];

for(i=0;i<2;i++)

printf("*

printf("");

printf("%d",n[j]);

vba題目。。。

3樓:網友

一般呢,像這樣的表示式,在a前邊有別的函式或者 " = " 時,就是判斷真假(注意:我這裡所說的a是泛指,它表示的是"="左邊的變數。以下雷同),例如:

print a=b+c

if a=b+c then ..

d=a=b+c

以上表示式中的a=b+c都是判斷真假的。

在 a 前邊什麼都沒有的就是賦值符號。例如:

a=b+ca=b+c+d

也許你對上面的 d=a=b+c 很有興趣,這個表示式很有意思。

它的第乙個=用於賦值,第二個=用於比較(也就是判斷真假),並不是我們想象的a 等於 b+c 的值 然後 d的值又等於a。

由於賦值號的優先順序是最低的,所以表示式會先計算b+c的值,然後與a比較大小,再賦值給b。

你能理解這個否?

4樓:網友

a = b + c 是乙個邏輯表示式,意思為判斷a的值是否等於b+c的值,當然是「假」

private sub command1_click()a = 1

b = 2c = 3

a = b * c

msgbox a

中,a已經被賦值,故可以輸出a的值。

5樓:太極健

a=b+c是不成立的,當然是false

如果把a=0改為a=11,那麼就是true了這是表示式,就是顯示成立與不成立。

頁第2個是直接給a賦值了,與b和c沒有關係的,就直接顯示a的值。

6樓:網友

msgbox後跟乙個帶等號的式子是輸出式子的真假的command0_click中,b+c的值為11,不等於0,所以為false。

若改成:private sub command0_click()a = 0

b = 5c = 6

a = b + c

msgbox a

end sub

則輸出11

vba問題?

7樓:網友

』設定dtpicker控制項(vb選擇顯手擾示日期時間的和首控制項)的位置,當前窗體中的dtpicker3控制項。

visible = true 』設定dtpicker控制項可見。

調整dtp控制項的位置,使其顯示在當前單元格之中。

top = 』設定dtpicker控制項的上頂位置與單元格的頂一致。

left = 』設定畢棚旦dtpicker控制項的最左點位置與單元格的左一致。

8樓:

dtpicker控制項控制項的 設定調整。

某個容器裡的dtpicker3這個控山團件。

visible = true '可見。

調整dtp控制項的位鍵亂置,使其顯示在當前單元格之中。

top = '頂點位置 等於 單元格頂點位置。

left = '左點位置 等於 單稿唯檔元格左點位置。

vba問題,急!!

9樓:

如果是指範圍,則。

if x>-64 or x<-84 thenend if

如果你野謹桐是指單頌坦純的2個值,則晌帶。

if x<>-64 and x<>-84 thenend if

vba 的問題

10樓:太極健

如果這個表只有這兩列資料,用一樓的**即可。

二樓老師的**沒看懂。

如果你這個表還有其他列,但這兩列是一樣多行的,可用一列求出r=range("a65536").end(xlup).row這個r就是行號。

如果兩列不一樣多行數,要最大的行數。

r=range("a65536").end(xlup).rowr1=range("b65536").end(xlup).rowi=max(r,r1)

這個i就是行號。

11樓:

比如 資料分別在ab 列。

a列行數=cells(65000, 1).end(xldown).row-cells(1, 1).end(xldown).row+1

b列行數=cells(65000, 2).end(xldown).row-cells(1, 2).end(xldown).row+1

12樓:

從第一有資料行到最後有資料行。

從第一行到最後有資料行。

vba新手問題~謝謝幫忙~

13樓:網友

myrange1的值表示乙個區域漏悉行:

即表返譁陸物sheet1中的:b27:b29

其中r代表行號,c代表列號。

翻譯 高懸賞分 100,高分懸賞準確翻譯

雖然這是一個選擇有限目標,但它表明,必須有一個對所有與產品有關的活動的原因。這些理由是最好的表現在具體目標的形式。該產品計劃。一旦確定營銷目標設定的產品,它是那麼有可能發起的活動,構成了產品計劃。雖然有許多方法來看待這個程序號,我們選來解釋的概念,通過產品生命週期 plc 的這一過程。應該指出的是,...

懸賞100分的題目!怎麼升級?

多問題,別人給的好評越多,升級越快。問題 做任務 堅持登陸 發帖 回帖。跪求答案!高分100,解決後追加100,全天 等!好像是痛風,最好找老中醫看看,不要過了最佳 期,祝你好運,不要有心裡壓力。及早到正規醫院檢查 不要耽誤了,這裡無論是誰幫你,也只是主觀臆斷,還是要相信科學。全面檢查。這是一種晨僵...

急!高分懸賞!高分懸賞!!!

要是解決此事,給你推薦一種方法,用路由自動撥號!路由撥號的話,免費開機還另外撥號的煩事。路由撥號的方法,你在瀏覽器的位址列中輸入 1 或者 1 你自己試試吧,進去之後,詳細設定,不懂可以,也可以看路由設定說明書。祝你好運!用驅動精靈更新網絡卡驅動,或換個網絡卡。哈哈,查一下你win7自帶的防火牆吧,...