计算机二级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