高分懸賞,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自帶的防火牆吧,...