高中信息技術(shù)學(xué)業(yè)水平考試VB程序填空題

1、高中信息技術(shù)學(xué)業(yè)水平考試 VB程序填空題1. 該程序的功能是，已知兩個(gè)數(shù)a,b的值，要求交換兩個(gè)變量的值。請(qǐng)?jiān)趯⒊绦蛉笔У摹癬"的部分填寫完整。Private Sub Command1_Click()a=3b=4t=aa=b_ Print “a=”;a,”b=”;bEnd Sub _(答案：B=T)2. 該程序的功能是，從鍵盤輸入圓的半徑R，輸出圓的周長(zhǎng)L和面積S。請(qǐng)?jiān)趯⒊绦蛉笔У摹癬"的部分填寫完整。Private Sub Command1_Click()R = 1L =_S = 3.14 R RPrint “L=”;L,”S=”;SEnd Sub _(答案：23.14R

2、)3. .該程序的功能是：輸入一個(gè)三位整數(shù)，然后將它反向輸出。例如輸入789，輸出應(yīng)為987。請(qǐng)?jiān)趯⒊绦蛉笔У摹癬"的部分填寫完整。Private Sub Command1_Click()Dim X As Integer, X1 As Integer Dim X2 As Integer, X3 As Integer Dim Y As IntegerX = 456X1 = _X2 = (X - X1 100) 10X3 = X - X1 100 - X2 10Y = X3100+X210+X1Print "反向輸出的數(shù)Y=" YEnd Sub _(答案：X100)4

3、. 該程序的功能是：輸入一個(gè)四位整數(shù)X，然后求它的各位數(shù)字之和Y。例如輸入3456，輸出應(yīng)為6543。，X表示原數(shù)，X1，X2，X3，X4分別表示原數(shù)的個(gè)位、十位、百位、千位上的數(shù)字。Y表示各位數(shù)字之和。請(qǐng)?jiān)趯⒊绦蛉笔У摹癬"的部分填寫完整。Private Sub Command1_Click()Dim X As Integer, X1 As Integer Dim X2 As Integer, X3 As Integer Dim X4 As Integer, Dim Y As Integerx = 3456X1 = x1000X2 = x100X3 = (X Mod 1000) 1

4、00X4 = (x - x MOD 1000) 1000y = _Print "反向輸出的數(shù)Y=" Y _(答案：X1+X2+X3+X4)5. 2012年6月，小李同學(xué)參加了一場(chǎng)考試，其中有一道題目是：'輸入一個(gè)四位整數(shù)X，將它反向輸出。例如輸入3456，輸出Y=6543'其中，X1代表千位，X2代表百位，X3代表十位，X4代表個(gè)位，Y代表反向輸出的數(shù)'小李同學(xué)編寫了如下不完整的程序:'請(qǐng)將程序缺失部分“_”補(bǔ)充完整，并將字符刪除，正確運(yùn)行程序后，'保存文件并退出VB。Private Sub Command1_Click()Dim X

5、 As Integer, X1 As Integer, X2 As Integer, X3 As Integer, Y As IntegerX = 3456X1 = _X2 = X 100 Mod 10X3 = X 10 Mod 10x4 = X Mod 10Y = x4 1000 + X3 100 + X2 10 + X1print "Y="YEnd Sub _(答案：X1000)6. 該程序的功能是：從鍵盤上任意輸入兩個(gè)數(shù)a和b，將其中最大的那個(gè)數(shù)選出來,MAX表示最大數(shù)。Private Sub Command1_Click()A = 3B = 4If _ Then&#

6、160;  Max =AELSE   Max = BEndif Print “Max=”;MaxEnd Sub _(答案：A>B)7. .該程序的功能是，已知球體的半徑r，要計(jì)算球的體積V。請(qǐng)?jiān)趯⒊绦蛉笔У摹癬"的部分填寫完整。Private Sub Command1_Click()r=2V=_Print “V=”;VEnd Sub _(答案：4/33.14RRR)8. 求一元二次方程ax2+bx+c=0的根，要求從鍵盤輸入三個(gè)數(shù)，判斷有無根。有根則輸出兩根的值分別為X1,X2，無根則輸出"無根"。請(qǐng)?jiān)趯⒊绦蛉笔У摹癬"

7、;的部分填寫完整。Private Sub Command1_Click()A =1B =3C =2D = B B - 4 A CIf _ ThenX1 = (-B + Sqr(D) / (2 A)X2 =(-B - Sqr(D) / (2 A)Print " X1= " ; X1, "X2=" X2ELSE Print " 無根"End IfEnd Sub _(答案：D>=0)9. 該程序的功能是：從鍵盤任意輸入一個(gè)數(shù)，判斷這個(gè)是否是偶數(shù)，如果是偶數(shù)輸出"Y"，否則輸出"N"。請(qǐng)?jiān)趯⒊绦蛉?/p>

8、失的“_"的部分填寫完整。Private Sub Command1_Click()X = 9If X MOD _  <> 0 Then   Print " N "ELSE    Print " Y "End IfEnd Sub _(答案：2)10. 該程序的功能是：從鍵盤任意輸入一個(gè)數(shù)，判斷這個(gè)是否是偶數(shù)，如果是偶數(shù)輸出"Y"，否則輸出"N"。請(qǐng)?jiān)趯⒊绦蛉笔У摹癬"的部分填寫完整。Private Sub Command1_Click(

9、)X = 9If X MOD 2 _ 0 Then   Print " Y "ELSE    Print " N "End IfEnd Sub _(答案：=)11. 該程序的功能是：從鍵盤任意輸入一個(gè)數(shù)，判斷這個(gè)是否是偶數(shù)，如果是偶數(shù)輸出"Y"，否則輸出"N"。請(qǐng)?jiān)趯⒊绦蛉笔У摹癬"的部分填寫完整。Private Sub Command1_Click()X = 9If X2=INT(_)  Then   Print " Y &

10、quot;ELSE    Print " N "End IfEnd Sub _(答案：X/2)12. 該程序的功能是：從鍵盤任意輸入一個(gè)數(shù)，判斷這個(gè)是否是偶數(shù)，如果是偶數(shù)輸出"Y"，否則輸出"N"。請(qǐng)?jiān)趯⒊绦蛉笔У摹癬"的部分填寫完整。Private Sub Command1_Click()X = 9If X2=X/2 Then   Print " _ "ELSE    Print " N "End IfEnd Sub _(答

11、案：Y)13. 該程序的功能是計(jì)算旅客的行李費(fèi)。收費(fèi)標(biāo)準(zhǔn)為：20千克以下（包括20千克）不收費(fèi)， 超過20千克的部分每千克收20元。X表示行李重量，Y表示行李費(fèi)。Private Sub Command1_Click()Dim X As SingleDim Y As SingleX =25If  X>=20 Then    Y = 0Else    Y = _End IfPrint “行李費(fèi)=”;YEnd Sub _(答案：(X-20)20)14. 該程序的功能是求S=2+4+6+100。Private Sub Command1_Click

12、()S=0For I=2 TO   _ Step 2   S=S+INext IPrint "S="SEnd Sub _(答案：100)15. 該程序的功能是求S=2+4+6+100。Private Sub Command1_Click()S=_For I=2 TO  100  Step 2   S=S+INext IPrint "S="SEnd Sub _(答案：0)16. 該程序的功能是求S=2+4+6+100。Private Sub Command1_Click()S=0For

13、I=2 TO  100 _ 2   S=S+INext IPrint "S="SEnd Sub _(答案：STEP)17. 該程序的功能是求S=2+4+6+100。Private Sub Command1_Click()S=0For I=2  _  100 STEP 2   S=S+INext IPrint "S="SEnd Sub _(答案：TO)18. 該程序的功能是求S=2+4+6+100。Private Sub Command1_Click()S=0For I=2  TO  100 STEP 2   S=S+INEXT  _Print "S="SEnd Sub _(答案：I)19. 該程序的功能是求S=1237。Private Sub Command1_Click()S=_For i=1  TO  7&