计算机二级VB编程题目含答案.docVIP

Private Sub Command1_Click() Dim n As Integer, i As Integer, s As Double n = Val(Text1.Text) s = 0 For i = 1 To n s = s + i ^ 2 Next i Text2.Text = s End Sub Private Sub Command1_Click() 不得删除本行注释 Dim i As Integer Open App.Path \ yssj.txt For Input As #1 For i = 1 To 10 Input #1, a(i) Next i Close #1 End Sub Private Sub Command2_Click() 不得删除本行注释 Dim i As Integer Text1.Text = For i = 1 To 10 If a(i) Mod 3 = 2 Then Text1.Text = Text1.Text Str(a(i)) End If Next i End Sub  Private Sub command1_Click() 不得删除本行注释 Dim a As Integer, b As Double, i As Integer, n As Integer n = Val(Text1.Text) a = 0 b = 0 For i = 1 To n a = a + i b = b + a Next i Text2.Text = b End Sub Private Sub Command1_Click() 不得删除本行注释 Dim i%, xh$, xm$ Open App.Path \ Xhxm.txt For Output As #1 For i = 1 To 3 xh = InputBox(请输入学号) xm = InputBox(请输入姓名) Write #1, xh, xm Next i Close #1 End Sub Private Sub Command2_Click() 不得删除本行注释 Dim s as string Open App.Path \ Xhxm.txt For Input As #2 Do While Not EOF(2) Line Input #2, s Text1.Text = Text1.Text s vbCrLf Loop Close #2 End Sub  Private Sub Command1_Click() ‘”读取文件”按钮代码 不得删除本行注释 Dim st As String Text1.Text = Open App.Path \ “jmwb.txt For Input As #1 While Not EOF(1) Input #1, st Text1.Text = Text1.Text + st + vbCrLf Wend Close #1 End Sub Private Sub Command2_Click() Dim s As String, co As String, c As String, Dim n As Integer, i As Integer, p As Integer s = Trim(Text1.Text) n = Len(s) co = For i = 1 To n c = Mid(s, i, 1) p = Asc(c) + 5 co = co + Chr(p) Next i Text2.Text = co End Sub Private Sub command1_click() 不得删除本行注释 For N = 1 To 15 x(N) = Int(Rnd * 91 + 10) Text1.Text = Text1.Text + Str(x(N)) Next N End Sub Private Sub Command2_Click() 不得删除本行注释 Dim m As Integer, K As Integer For N = 1 To 15 For m = N + 1 To 15 If x(m) x(N) Then K = x(N) x(N) = x(m) x(m) = K End If Next m Text2.Text = Text2.Text + Str(x(N)) Next N End Sub  Private Sub Command1_Click() Dim char As String * 1 char = Trim(T