vb试题及.docVIP

ID sjh th tg da 70 0 1 表达式 2 * -4 / 2 + 3 ^ 2 的值是__________。 5 80 0 2 已知a = 1: b = 2，则表达式Not True or a b 的逻辑值结果是__________。 真 90 0 3 执行下列程序，窗体上显示的s的结果为_________，i的值为________。 Private Sub Command1_Click() Dim i As Integer, s As Integer For i = 1 To 4 Step 2 s = s + i If s 3 Then Exit For Next i Print s; i End Sub 4|3 100 0 4 统计数组a（100，100）中非零元素个数，请将程序补充完整。 count=0 For i=1 to 100 For j= 1 to 100 If _________ then _________ End If Next j Next i Print 非零元素个数为 count a(i,j)0|count= count+1 110 0 5 执行下列程序，窗体上显示的结果， 第一行为_________,第二行为______。 Private Sub Command1_Click() Dim x As Integer, y As Integer x = 10: y = 15 Call value(x, y) Print x, y End Sub Private Sub value(m As Integer, ByVal n As Integer) m = m * 2 n = n - 5 Print m, n End Sub 20 10|20 15 120 0 6 本程序的功能是求各位数字之和。程序运行时，向文本框Text1中输入一个数，点击Command1按钮后，在文本框Text2中显示结果。 Private Sub Command1_Click() Dim s As String, i As Integer s = Text1.Text Text2.Text = __________________________ End Sub Private Function cal(ByVal t As String) As Integer 求各位数字之和 Dim i As Integer, sum As Integer For i = 1 To Len(t) sum = ____________________________ Next i cal =sum End Function cal(s)|sum + Val(Mid(t, i, 1)) 61 1 1 表达式 3 ^ 2 + 6 \ 5 * 2 的值是__________。 9 71 1 2 已知a = A: b =a，则表达式a b 的逻辑值结果是__________。 假 81 1 3 执行以下语句，在窗体上显示的s的值为________，n的值为________。 Private Sub Command1_Click() Dim n As Integer, s As Integer n = 3 s = 1 Do While n 0 n = n - 1 s = s + n Loop Print s; n End Sub 4|0 91 1 4 用冒泡排序法对8个数按降序进行排序，请将程序补充完整。 For i=1 to 7 For j= _________ If _________ then temp = sort(j+1) sort(j+1) = sort(j) sort(j) = temp End If Next j Next i 1 to 8-i|sort(j)sort(j+1) 101 1 5 执行下面的程序，窗体上显示的a的值是________，b的值是________。 Private Sub Command1_Click() Dim a As Single, b As Single a = 5 b = 4 c