全国计算机二级VB上机题库及答案.doc

第一题 Dim s As String Private Sub Command1_Click() Open App.Path \in4.dat For Input As #1 s = Input(LOF(1), #1) Close #1 Text1.Text = s End Sub Private Sub Command2_Click() Dim m As Integer If Len(s) = 0 Then MsgBox 请先使用“读数据”功能！ Else If Text1. SelLength = 0 Then MsgBox 请先选中文本！ Else t = For i = 1 To Text1.SelLength c = Mid(Text1.SelText, i, 1) If c Then t = t + c Else x = t If InStr(x, o) 0 And InStr(x, n) 0 Then m = m + 1 End If t = End If Next i text2 = Str(m) End If End If End Sub 第二题 Private Sub Command1_Click() Dim k As Integer Open App.Path \in5.dat For Input As #1 For k = 1 To 100 Input #1, a(k) Text1 = Text1 + Str(a(k)) + Space(2) Next k Close #1 End Sub Private Sub Command2_Click() Dim b(100) As Integer num = 0 If Len(Text1.Text) = 0 Then MsgBox 请先执行“读数据”功能！ Else 考生编写(功能：生成存放素数的数组 b ) 注意：请务必将数组 b 的元素个数存入变量 num 中 num = 1 For i = 1 To 100 For j = 2 To Sqr(a(i)) If a(i) Mod j = 0 Then Exit For End If Next j If j Sqr(a(i)) Then b(num) = a(i) num = num + 1 End If Next i 以下程序段将 b 数组的内容显示在Text2中 For i = 1 To num-1 Text2.Text = Text2.Text + Str(b(i)) + Space(2) Next i End If End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path \out5.dat For Output As #1 Print #1, Text2.Text Close #1 End Sub 第三题 在控件上右击——属性 第四题 Private Sub menu2_Click() menu1.Enabled = True End Sub 第五题 第一小题（1） Dim a(10) As Integer Private Sub Form_Load() For i = 1 To 10 a(i) = Int(Rnd * 100) Next End Sub Private Sub Command1_Click() x = a(1) y = a(1) For i = 2 To 10 If Option1.Value = Tru