VB选择题复习资料.xlsVIP

sel sel 窗体上有一个文本框Text1和命令按钮Command1，编写如下事件过程： Private Sub CommanClick() i = Text1.Text Select Case i Case 1: j = + Case 2: j = - Case 3: j = * Case Else: j = 非法 End Select Text1.Text = j End Sub 运行时，在Text1中输入5后单击命令按钮，Text1中内容是（ ）。 (A) + (B) - (C) * (D) 非法 以下条件语句错误的是（ ）。 (A) If X 0 Then Y = Y+1 Else Y = Y-1 (B) If X 0 Then Y = Y+1: Else Y = Y-1 (C) If X 0 Then Y = Y-1 (D) If X = 0 Then Y = Y-1 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Dim x As Integer, y As Integer x = InputBox() If x ^ 2 = 16 Then y = x If x ^ 2 16 Then y = 1 / x If x ^ 2 16 Then y = (x + 1) ^ 2 + 1 Print y End Sub 运行时，单击按钮，在输入框中输入5后回车，窗体上将显示（ ）。 (A) 5 (B) 0.2 (C) 26 (D) 37 下列程序段的执行结果是（ ）。 Dim x As Integer x = 6 Select Case x Case 5 Print 优秀 Case 4 Print 良好 Case 3 Print 通过 Case Else Print 不通过 EndSelect (A) 优秀 (B) 良好 (C) 通过 (D) 不通过 执行以下程序段后，窗体显示的内容为（ ）。 Private Sub Form_Click() s = 2 For i = 1 To 2 For j = 0 To i s = s + s * j Print s; Spc(2); Next j Print Next i End Sub (A) 1 2 2 4 12 (B) 2 4 4 8 (C) 2 4 8 24 (D) 2 4 4 8 24 以下程序段的执行结果是（ ）。 n = 2 J = 1 Do While J 4 n = n * J Print n; J = J + 1 Loop (A) 2 3 4 (B) 2 6 24 (C) 2 4 8 (D) 2 4 12 运行以下程序段之后，n的值是（ ）。 Dim m%, n% For m = 1 To 3 For n = 1 To 6 Step 2 n = n + 1 Next Next (A) 1 (B) 3 (C) 7 (D) 9 如下程序段的功能是计算 1/2+1/4+1/6 +...+1/50，并显示结果。 Private Sub Command1_Click() Dim i As Integer Dim sum As Double i = 【1】 sum = 0 Do While (i =50) sum = sum + 1 / 【2】 i = i + 2 Loop Print sum End Sub 程序的空缺处【1】和【2】应分别填写（ ）。 (A) 0,sum (B) 1,i (C) 2,sum (D) 2,i 运行以下程序，单击窗体后输出的结果是（ ）。 Private Sub Form_Click() s = 1 For i = 1 To 2 For j = 1 To