资源描述
*,*,*,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 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 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,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(),Dim char As String * 1,char = Trim(Text1.Text),If Not,IsNumeric(char,) Then,If (,Asc(char,) = 65 And,Asc(char,) = 97 And,Asc(char,) = A And y k Then List1.AddItem n,Next n,End Sub,
展开阅读全文