Case 0 fa = \Case 1 fa = \End Select fanma=fanma+fa Next i
text2.Text=___(2)_______ End Sub
16、以下循环运行结果为_________。 intl=0
Do While int1<=10 int1=int1+1 Loop
17、执行下面程序后，A(1，3)的值是________ ，A(2，2)的值是________ ，A(3，1)的值是________ 。
Option Explicit Option Base 0
Private Sub Form_Click( ) Dim A(3,3)As Integer,I As Integer Dim k As Integer,m As Integer m=16
For k=6 To 0 Step -1 If k>=2 Then For I=0 To 5-k A(k-2+I,I)=m m=m-1 Next I Else For I=0 To k A(k-I,3-I)=m m=m-1 Next I End If Next k For k=0 To 3 For I=0 To 3 Print A(k,I); Next I Print Next k End Sub
18、运行下面的程序，单击窗体后在窗体上显示的内容是___________。 Private Sub Form_Click( )
For i = 1 To 10 Step 2 Print I; Next I End Sub
19、输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的\变换成\。
Private Sub Command1_Click() Dim a$,i%,c$，d$
a=inputBox$(\输入字符串\n=____(1)_____
For I=1 To ____(2)__________ c=Mid(a,I,1)
Mid(a,I,1)=_____(3)_____ ____(4)______=c Next i Print a End Sub
20、表示\大于等于255，或A与B分别大于90且C大于80\的VB表达式的 ____ 21、以下循环迭代了______ 次。 Int1 = 10 Do While int1>=1 Int1=Int1-1 Loop
22、宰相达依尔(国际象棋的发明者)想赢得象棋格子的麦子的故事大家都很熟悉，其麦子颗粒数的计算公式为：
sum = 1+2+2^2+2^3+2^4+2^5+...+2^63，相应的计算程序如下，请将程序补充完整。 Private Sub Command1_Click( ) Dim x As Single, y As Single Sum = 0 For n = 0 To 63 x =__________ Sum = sum + x Next n
Print \麦子的总颗粒数为：\；Sum End Sub
23、语句Print 12;Tab;24的执行结果是 _______.
24、用100元买100鸡，条件是公鸡x每只5元，母鸡y每只3元，小鸡z只1元3只。程序中的选项是_______。
Private Sub Command1_Click( ) For x = 0 To 100 For y = 0 To 100 z=100-x-y
If ____(1)____Then Print x, y, z Next y
Next x End Sub
25、下列程序计算１！，３！，５！，７！的值。完善下列程序。 Private Sub Command1_Click( ) for x = 1 To 7 Step 2 _______ For y = 1 To x fact = fact * y Next y
Print x; \Next x End Sub
26、下列程序执行后，分别输入54，21，38，打印结果是_____________ Private Sub Command1_Click( ) Dim x%, y%, z% x=InputBox(\y=InputBox(\z=InputBox(\
If x>y Then t=x：x=y: y=t If x>z Then t=x: x=z: z=t If y>z Then t=y: y=z: z=t Print x ; y; z End Sub
27、输入一串数字字母混合的字符串，将其中数字挑出来，并且在相应的数字之间用\分开， 如\输出的结果为\，请将下列程序补充完整。 Private Sub Command1_Click( )
Dim st As String, i As Integer, flag As Boolean st = InputBox(\输入数字字母混合的字符串\i = 1 Print \
Do While i <= Len(st)
If Mid(st, i, 1)>\Print Mid(st, i, 1); flag = True
ElseIf flag = True Then _____(1)____ flag = False End If i = i + 1 Loop ____(2)____ End Sub
28、A=7，B=3，C=4，则表达式 A MOD 3+B^3/C\\5的值为______。
29、已知K=2，J=3，A=True，则VB表达式(K-J<=K)AND(NOT A)OR(K+J>=J)的值为 _____。
30、找出1～10000之间的同构数。所谓同构数，是指此数的平方数的最后几位与该数相等。 例如，25的平方为625，25是同构数。完善下列程序。程序代码如下： Private Sub Command1_Click( ) Dim i As Integer, y As Long For x = 1 To 1000 y = x * x If ___(1)___ Then Print x End If Next x End Sub
参考答案
1.a,2.b,3.d,4.b,5.d,6.c,7.a,8.b,9.b,10.a,11.d,12.b,13.b,14.a,15.a,16.b,17.d,18.b,19.b,20.c,21.c,22.b,23.a,24.b,25.a,26.d,27.d,28.b,29.a,30.a,31.a,32.b,33.a,34.d,35.a,36.d,37.a,38.c,39.d,40.b
1.13,2.mid(s,i,1),3.Dim t as Double,term=term+t,4.Txt1.FontName=“黑体”,5.Value,6.ForeColor,7.61,8.123234,9.Bb,Ee,10.简单组合框,Style,11.优秀,12.198,13.81,9,14.Bb,BbCcEe,15.1 to 8,fanma,16.11,17.6,8,14,18.1 3 5 7
9,19.Len(a),n/2,Mid(a,n-i+1),Mid(a,n-i+1),20.A+B+C>=255 Or A>90 And B>90 And C>80,21.10,22.2^n,23.12 24,24.5*x+3*y+z/3=100,25.fact=1,26.21 38 54,27.Print \mod 1000))