发布时间 : 星期四 文章江苏省计算机二级vb分章节解析更新完毕开始阅读
For I = 1 To 5 For J = 1 To 5 Text2 = Text2 & Str(A(I, J)) Next J Text2 = Text2 & vbCrLf Next I End Sub 【答案】（1）Until A(I,J)<>0，（2）R=6-I，（3）L=6-J
【解析】Command1_Click过程中通过二重For-Next循环对二维数组的各个元素进行赋值，Do-Loop循环体内二个判断语句判断所要赋值的元素是否处于副对角线上方及生成的随机数的奇偶性，如符合题意，则对该元素进行赋值，如不符合，则不能赋值，即执行一次循环体，不一定能对元素赋值。Command2_Click是将A(I,J)和A(L,R)元素值进行交换，因此第2、3个空是对L、R进行赋值。
2．执行下面的程序，当单击Command1时，Picture1中显示内容的第二行与第四行分别是_____1____与____2____，Picture2中显示内容的第一行和第三行分别是____3____与____4____。
Private Sub Command1_Click()
Dim a(4, 4) As Integer, i As Integer, J As Integer Dim b(4, 4) As Integer For i=1 To 4 S=＂＂ For J=1 To 4
a(I, j)=((i-1)*4+j)
S=S & Right(＂＂ ＆ Str(a(I, j)), 3) next j
Picture1.Print S Next i
For i=1 To 4 For J=1 To 4 b(5-j, i)=a(I, J) Next j Next i
For i=1 To 4 S=＂＂ For J=1 To 4
If Len(CStr(b(I, J)))<2 Then
S=S ＆ ＂＂ ＆ CStr(b(I, j)) ＆ ＂＂ E1se
s=s ＆ CStr(b(I, j)) ＆ ＂＂ End If Next J
Picture2.Print S Next i End Sub
【答案】（1）5 6 7 8，（2）13 14 15 16，（3）481216（4）261014
3．下面程序的功能是，输入x的值，利用递推法分别求出级数前n项(n=0，1，2，3，?)之和。
S?a0?a1???an??
其中， a0=1，an=an-1．
x?3?2n? n=1，2，3，．．．． 2n计算级数，直到第n项的绝对值小于等于0．001时停止。完善程序，实现以上功能。
Option Explicit
Private Sub Command1_Click()
Dim x As Single, i As Integer, S As Single Dim a As Single, a1 As Single X=Text1 a=1:S=a
List1.AddItem ＂S(＂ ＆ ＂0)=＂ ＆ Str(S) Do i=i+1
____1____
S=S+a1
List1.AddItem ＂S(＂ ＆ CStr(i) ＆ ＂)=＂If Abs(a1)<=0．001 Then Text2=i ____2____ else a=a1 end if Loop End Sub 【答案】（1）a1=a*x*(3-2*I)/(2*I)，（2）exit do
4．执行下面的程序，单击窗体，则在窗体上显示的是
Option Explicit
Private Sub Form_Click()
Dim a As Integer, b As Integer, C As Integer b=6:c=6.5 a=b=c Print a End Sub 【答案】-1
Str(S) ＆第4章 VB控制结构
一、本章知识点
1、If语句
（1）单分支结构的If语句 （2）双分支If语句 （3）多分支If语句 2、IIf函数
Var=IIf(条件，True部分，False部分) 3、Select Case语句
测试表达式可以是数值表达式或字符串表达式，也可以是一个常量或一个变量。如：
Case l，3，7 Case \，\
Case 1 To l0，\Case Is > 15
4、计数型循环（For - Next）
首先计算初值表达式（简称初值）、终值表达式（简称终值）、步长表达式（简称步长）的值，循环中其值不会发生改变 5、条件型循环(Do - Loop)
条件型循环的四种基本格式
二、试题与解析
选择题
1．在Select Case x结构中，描述判断条件3≤X≤7的测试项应该写成__________。 A．Case 3<=X<=7 B．Case 3<=X，X<=7 C．Case Is<=7，Is>=3 D．Case 3 To 7 【答案】D
填空题
1． 执行下面的程序，当单击窗体时，显示在窗体上第一行的内容是________，第二行的内
容是________。
Private Sub Form_Click( )
Dim i As Integer, Sum As Integer For I = 0.5 To 8.5 Step 2.5 Sum = Sum + I * 10 Next I Print Sum
Print I End Sub
【答案】200，10
【解析】I为整型变量，赋初值为0.5，系统将其转换为整型0，第一次循环结束后，加上步长2.5，即0+2.5，再转换为2，因此此题循环变量的取值为0，2，4，6，8，当循环变量的值为10时，超出终值，终止循环。（给整型变量赋带小数的值时，系统自动转换为整型，转换原则为四舍六入五成双，如3.1为3，3.6为4，3.5为4，2.5为2）
2．执行下面的程序，当单击窗体时，显示在窗体上第一行的内容是________，第三行的内容是________，第五行是________。
Private Sub Form_Click( ) Dim S As String, i As Integer, n(9) As Integer Dim S1 As String * 1, j As Integer S = Trim(“12345a307291b233”) For i = 1 To Len(S) S1 = Mid(S, I, 1) If S1 >= “0” And S1 <=”9” Then j = Val(S1) n(j) = n(j) + 1 End If Next I For j = 0 To 9 Print j; “:”; n(j) Next j
End Sub
【答案】0：1，2：3，4：1
【解析】此程序功能为统计字符串S中0—9数字出现的次数。 3．下面程序的功能是对密文解密。密文的加密方法是以字符为单位，取其ASCII码，按逆序保存（例如字母“e”的ASCII码是01100101，密文中则为10100110）。解密是加密的逆过程。完善程序，实现以上功能。
Private Sub Command1_Click()
Dim S As String, st As String Dim i as integer , n as integer S = Text1 Do Until n >=Len(S) ____1_____ If n Mod 8 <> 0 Then St = st & Mid(s , n, 1) Else St = st & Mid(s , n, 1) List1.AddItem St _____2____ End If