vb各类经典题目最新.docVIP

09年12月26日编程题 0113 Private Sub Command1_Click() Text2.Text = Left(Text1.Text, 5) Text3.Text = Right(Text1.Text, 5) Text4.Text = Text2.Text Text3.Text End Sub 0114 Private Sub Command1_Click() Dim num1 As Integer, num2 As Integer, sum As Integer, cha As Integer num1 = Val(Text1.Text) num2 = Val(Text2.Text) sum = num1 + num2 cha = num1 - num2 If Sqr(sum) = Fix(Sqr(sum)) And Sqr(cha) = Fix(Sqr(cha)) Then Text3.Text = yes Else Text3.Text = no End If End Sub 0115 Private Sub Command1_Click() Dim N As Integer (注：此行代码由系统自动生成) Dim i As Integer N = Val(Text1.Text) Text2.Text = For i = 1 To N If Sqr(i) = Fix(Sqr(i)) Then Text2.Text = Text2.Text Str(i) End If Next End Sub 0116 Private Sub Command1_Click() Dim s As String Text1.Text = Open K:\ks101\6830301\zfcwj.txt For Input As #1 Line Input #1, s Text1.Text = s Text2.Text = Len(s) Close #1 End Sub 0117 Private Sub Command1_Click() Dim i As Integer, a Randomize Text1.Text = For i = 1 To 20 a = Int(90 * Rnd + 10) Text1.Text = Text1.Text a If a = 65 And a = 90 Then Text2.Text = Text2.Text Chr(a) End If Next End Sub 0213 Dim N(1 To 25) As String (注：此行代码由系统自动生成) Private Sub Command1_Click() Dim i As Integer List1.Clear Open K:\ks101\6830120\xzfwj.txt For Input As #1 For i = 1 To 25 Input #1, N(i) List1.AddItem N(i) Next i Close #1 End Sub Private Sub Command2_Click() Dim i As Integer List2.Clear For i = 1 To 25 If N(i) D Then List2.AddItem N(i) End If Next i End Sub 0214 Private Sub Command1_Click() Text2.Text = zh(Text1.Text) End Sub Private Function zh(s2 As String) As Double (注：此函数过程是系统自动生成的) Dim k As Integer, i As Integer, r As String, n As Integer k = Len(s2) zh = 0 For i = 1 To k r = Mid(s2, i, 1) If r = 9 Then n = Val(r) Else n = Asc(r) - 55 End If zh = zh + n * 16 ^ (k - i) Next i End F