29程序阅读题 (1)执行下面程序段后,变量c$的值为 a="学习 Visual basic programming" cS=b&"喜欢"& CAse(Mid(a,10,5) (2)执行下面程序后,显示的结果是 Private Sub Form Click Dim x As Integer nt( Rnd)+ 4 Select case x Case 5 Print"优秀 良好 及格 Case el Print"不及格 End Select End sub (3)执行下面程序段后,变量x的值为 Di Dimx as ir For i= 1 To 20 Step 3 (4)执行下面程序后,输出的结果是 Private Sub Form Click Fori= 1 To 3 F I To =x+1 Next End Sub (5)执行下面程序后,输出的结果是 Private Sub Form Click( Dim x As Integer Do While x 50 Print"xe' End Sub (6)执行下面程序后,输出的结果是 Private Sub Form Click Dim x as in ForI= 1 ToA. 12 B. 27 C. 64 D.80 2.9 程序阅读题 （１）执行下面程序段后，变量 c$的值为 。 a = "学习 Visual Basic Programming" b = "我们" c$ = b & "喜欢" & UCase(Mid(a, 10, 5)) （２）执行下面程序后,显示的结果是 。 Private Sub Form_Click() Dim x As Integer x = Int(Rnd) + 4 Select Case x Case 5 Print "优秀" Case 4 Print "良好" Case 3 Print "及格" Case Else Print "不及格" End Select End Sub （３）执行下面程序段后，变量ｘ的值为 。 Dim x As Integer x = 5 For i = 1 To 20 Step 3 x = x + i \ 5 Next i （４）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim x As Integer For i = 1 To 3 For j = 1 To i For k = j To 3 x = x + 1 Next k Next j Next i Print x End Sub （５）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim x As Integer x = 0 Do While x < 50 x = (x + 2) * (x + 3) n = n + 1 Loop Print "x="; x; "n="; n End Sub （６）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim x As Integer, a As Integer x = 0 For j = 1 To 5 a = a + j Next j