VB 编程题汇编.pptVIP

VB 编程题汇编 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 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() ‘”读取