vb 强化 讲义.pptVIP

* 示例—— For…Next 结构 7-4：在过程中有语句 For I=N1 To N2 Step N3 ，在该循环体内有下列四条语句，其中 会影响循环执行的次数。 ①N1=N1+I ②N2=N2+N3 ③I=I+N3 ④N3=2*N3 A. ①② B. ①②③ C. ③ D. ①②③④ 7-5：下列程序执行后，窗体上输出结果是什么？ Dim A As Integer , B As Integer B=10 For A=1 To B A=A+1 B=B+1 Next A Print A , B 11 15 * 示例—— For…Next 结构 7-6：执行下面程序，输出的结果是什么？ Dim I As Integer, k As Integer Dim a1 As Integer, a2 As Integer, a3 As Integer a1 = 1: a2 = 10: a3 = 2 For I = a1 To a2 Step a3 k = k + 1 I = I + 2 a1 = a1 + 1 a2 = a2 - 5 a3 = a3 + 2 Next I Print k, I Print a1, a2, a3 13 4 -5 8 * 示例—— For…Next 结构 7-8：执行下面程序后变量 k 和 i 的值各是多少？ Dim I As Integer, k As Integer For I = 10 To 1 Step -2 k = k + 1 Next I Print k, I 7-9：在窗体的单击事件中编写程序，从键盘输入一个正整数，判断该数是否为素数，并在窗体上输出“Yes”或“No”的提示信息。 5 0 * 示例——例7-9 Private Sub Form_Click() Dim x As Integer, i As Integer x = InputBox(请输入一个正整数) For i = 2 To x - 1 If x Mod i = 0 Then Exit For Next i If i = x Then Print Yes Else Print No End If End Sub Back * 示例—— Do…Loop 结构语句 例7-1：有如下程序片段，程序执行后a的值是多少？ Dim a As Integer a=1 Do Until a=100 a=a+2 Loop Print a 例7-2：用Do循环的四种形式分别求出100以内的正整数之和。 例7-3：下列程序片段执行后，变量x的值是多少？ x=1 : y=4 Do Until y5 y=y+1 x=x*y Loop Print x A. 1 B. 4 C. 8 D. 30 Back * 示例——赋值号与等号的区别 5-4：判断语句a=1和If a=1 Then Print中的“a=1”是否相同？ 5-5：说明语句a=b=2的含义。 5-6：针对语句 If I=1 Then J=1，下列说法正确的是 。 A. I=1和J=1均为赋值语句 B. I=1和J=1均为关系表达式 C. I=1 为关系表达式，J=1 为赋值语句 D. I=1 为赋值语句，J=1 为关系表达式 Back * 示例——不同类型数据之间的赋值 5-2：运行下面程序，单击命令按钮Command1，则立即窗口上显示的结果是 。 Private Sub Command1_Click( ) Dim A As Integer, B As Boolean, C As Integer, D As Integer A=20/3 : B=True : C=B : D=A+C Debug.Print A,D,A=A+C End Sub A. 7 6 False B. 6.6 5.6 False C. 7 6 A=6 D. 7 8 A=8 5-3：单击窗体后下面程序的显示结果是什么？ 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 Back * 示例——数组例题 4-1