第四章VB 控制 结构.pptVIP

例．若i的初值为8，则下列循环语句的循环次数为几次 Do While i=17 i=i+2 Loop A、3次 B、4次 C、5次 D、6次 例. 请写出单击窗体后，窗体上的显示结果 Private Sub Form_Click() Dim a As Integer, s As Integer a = 5: s = 0 Do While a = 0 s = s + a: a = a – 1 Loop Print s; a End Sub 0 5 例. 请写出输入8、9、3、0后窗体上的显示结果。 Private Sub Form_Click() Dim sum As Integer, m As Integer Do m = Val(InputBox(请输入m, 累加和等于 sum)) If m = 0 Then Exit Do sum = sum + m Loop Print sum End Sub 20 例. 设有以下循环结构 　　Do 　　循环体 　　Loop While 条件 则以下叙述中错误的是（ ） A）若条件是一个为0的常数，则一次也不执行循环体 B）条件可以是关系表达式、逻辑表达式或常数 C）循环体中可以使用Exit Do语句 D）如果条件总是为True，则不停地执行循环体 例. 在窗体上画一个Command1的命令按钮 Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a – 1 Loop While a = 0 Print s; a End Sub 程序运行后单击命令按钮则窗体上显示的内容是 A） 7 9 B） 34 0 C） 9 7 D）死循环 Loop Until a = 0 37 0 例：在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() x = 0 n =val( InputBox(“”)) For i = 1 To n For j = 1 To i x = x + 1 Next j Next i Print x End Sub 程序运行后单击命令按钮若输入3，则在窗体上显示 A）3 B）4 C）5 D）6 例 在窗体上画一个命令按钮，名称为Command1Private Sub Command1_Click() For I=1 To 4 For J=0 To I Print Chr(65+I); Next J Print Next I End Sub 程序运行后若单击命令按钮，则在窗体上显示的内容 A) BB B) AB C) BA D) AA CCC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD * * 例：执行语句s=Len(Mid(“VisualBasic”,1,6))后，s的值 A）Visual B)Basic C)6 D)11 例：设a = “MicrosoftVisualBasic” ，则以下使变量b的 值为“VisualBasic”的语句是 A) b = Left(a, 10) B) b = Mid(a, 10) C) b = Right(a, 10) D) b = Mid(a, 11, 10) 例：执行下面的程序段后，a、b的值为 a=300 b=20 a=a+b b=a-b a=a-b 20 300 例：在窗体上画一个文本框，然后编写如下事件过程 Private Sub Form_Click() x = InputBox(“请输入一个整数”) Text1.Text = x + Text1.Text End Sub 程序运行时在文本框中输入456，然后单击窗体，在输 入对话框中输入123，单击“确定”按钮后在窗体上显示 的内容为 A) 123 B)45