vb控制結(jié)構(gòu)

1、VB控制結(jié)構(gòu)控制結(jié)構(gòu)1在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubComm1_Click()x=0DoUntilx=1a=InputBox(“請(qǐng)輸入A的值“)a=val(a)b=InputBox(“請(qǐng)輸入B的值“)b=Val(b)x=InputBox(“請(qǐng)輸入x的值“)x=val(x)a=abxLoopPrintaEndSub程序運(yùn)行后，單擊命令按鈕，依次在輸入對(duì)話框中輸入5、4、3、2、1、1，輸出結(jié)果為A)2B

2、)3C)14D)152以下能夠正確計(jì)算n!的程序是A)PrivateSubComml_ClicK()n＝5:x＝1DoX=xii＝i十1LoopWhilei＜nPrintxEndSubB)PrivateSubComml_Click()n＝5:x＝1:i=1DoX＝Xii＝i十1LoopWhilei＜nPrintxEndSubC)PrivateSubComml_Click()n=5:x＝1:i＝1DoX=Xii＝i十1Loopwhilei

3、10ThenexitfNextText1.Text=Str(n)EndSub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是A)2B)3C)4D)57在窗體上畫(huà)一個(gè)名稱為T(mén)ext1的文本框和一個(gè)名稱為Comm1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubComm1_Click()Dimarray1(1010)AsIntegerDimijAsIntegerFi=1To3Fj=2To4array1(ij)=ijNextjNextIT

4、ext1.Text=array1(23)array1(34)EndSub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是A)12B)13C)14D)158在窗體上畫(huà)一個(gè)名稱為Comm1的命令按鈕，然后編寫(xiě)如下程序：PrivateSubComm1_Click()DimiAsIntegerjAsIntegerDima(1010)AsIntegerFi=1To3Fj=1To3a(ij)=(i1)3jPrinta(ij)NextjPrintNex