VB编程题.docx

1、VB编程题编程题 Private Sub Command1_Click() 不得删除本行注释 Dim i As Integer For i = 1 To 200 If i Mod 3 = 0 And i Mod 7 = 0 Then Text1.Text = Text1.Text + Str(i) End If Next End Sub Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Val(Text1.Text) b = Val(Text2.Text) Label1.Caption = Int(Rnd()

2、* (b - a + 1) + a) Label2.Caption = Int(Rnd() * (b - a + 1) + a) Label3.Caption = Int(Rnd() * (b - a + 1) + a) End Sub Private Sub Command1_Click() Dim s Open Bdata.txt For Input As #1 Do While Not EOF(1) Line Input #1, s Text1.Text = Text1.Text + s & vbCrLf Loop Close #1 End Sub Private Sub Command

3、1_Click() Dim a As String GetChar a Text1.Text = a If 48 = Asc(a) And Asc(a) = 57 Then Label1.Caption = 是数字字符 ElseIf (65 = Asc(a) And Asc(a) 90) Or (97 = Asc(a) And Asc(a) 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 EndSub Private Sub command1_Clic

4、k() 不得删除本行注释Dim a As Integer, b As Integer, c As IntegerDim max As Integer, min As Integera = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)max = a + b + Abs(a - b)max = max / 2min = a + b - Abs(a - b)min = min / 2max = max + c + Abs(max - c)max = max / 2min = min + c - Abs(min - c)min = min

5、/ 2Text4.Text = maxText5.Text = minEnd SubPrivate Sub Command1_Click()Dim m As Integer, n As Integer, c As Doublem = Val(text2.Text)n = Val(text1.Text)If m n Then MsgBox (m应大于等于n!) Exit SubEnd Ifc = fact(m) / (fact(n) * fact(m - n)text3.Text = Str(c)End SubFunction fact(n As Integer) As Double Dim i

6、 As Integer, f As Double f = 1 For i = 1 To n f = f * i Next i fact = f End FunctionPrivate Sub Command1_Click()Dim a As Integera = Val(Text1.Text)If (a Mod 4 = 0 And a Mod 100 0) Or a Mod 400 = 0 Then Text2.Text = 闰年Else: Text2.Text = 非闰年End IfEnd SubPrivate Sub Text1_Change()If Not IsNumeric(Text1

7、.Text) ThenMsgBox 请输入数字！, 48, 输入的不是数字Command1.Enabled = FalseText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)Else: Command1.Enabled = TrueEnd If Private Sub Command1_Click() 不得删除本行注释 Dim n As Integer, i As Integer n = Val(Text1.Text) If n 0 Or (Not IsNumeric(Text1.Text) Then MsgBox

8、请输入正整数, 48, 输入的不是正整数 Open App.Path & & jfwj.txt For Output As #1 For i = 1 To n Print #1, String(i, *) Next i Close #1 End Sub Private Sub Command1_Click() 不得删除本行注释Dim a As Integera = Val(Text1.Text)Text2.Text = zh(a) zh过程在原本的程序代码中已经有了直接可用End Sub Private Sub Command1_Click() Dim x As Double Dim y As

9、 Double x = Val(Text1.Text) If x 10 Then y = x - 1 ElseIf x 20 Then y = 2 * x - 1 Else y = 3 * x - 1 End If Text2.Text = y End Sub Private Sub Command1_Click() 不得删除本行注释 Text1.Text = Open App.Path & & zfwj.txt For Input As #1 For i = 1 To 10 Input #1, a(i) Text1.Text = Text1.Text & & a(i) Next i Clos

10、e #1 End Sub Private Sub Command2_Click() 不得删除本行注释 Dim t As String Text2.Text = For i = 1 To 10 t = a(i) a(i) = a(10 - i + 1) a(10 - i + 1) = t Text2.Text = Text2.Text & & a(i) Next i End Sub Private Sub Command1_Click()不得删改本行注释Dim n As Integern = Val(Text1.Text)If n 999 Then MsgBox 请输入三位正整数, , 输入出错

11、Else: Text2.Text = Int(n Mod 10) Text3.Text = Int(n Mod 100) / 10) Text4.Text = Int(n / 100)End IfEnd Sub Dim i As Integer Private Sub Command1_Click() For i = 1 To 10 List1.AddItem Int(Rnd() * 90) + 10) Next End Sub Private Sub Command2_Click() For i = List1.ListCount - 1 To 0 Step -1 If List1.List

12、(i) Mod 2 0 Then List2.AddItem List1.List(i) List1.RemoveItem i End If NextEnd SubPrivate Sub Command3_Click() 清除按钮的代码List1.ClearList2.ClearEnd SubPrivate Sub Command1_Click() ”读入数据”按钮代码不得删除本行注释Dim st As StringText1.Text = Open App.Path & & yy.txt For Input As #1While Not EOF(1)Input #1, stText1.Tex

13、t = Text1.Text + st + vbCrLfWendClose #1End SubPrivate Sub Command2_Click()不得删除本行注释Dim x As String, y As String * 1, n As Integer, i As Integer, p As Integerx = Trim(Text1.Text)n = Len(x)p = 0For i = 1 To n y = UCase(Mid(x, i, 1) If y = A And y k Then List1.AddItem nNext nEnd Sub Private Sub Command1_Click() 不得删除本行注释 Dim i As Integer, n As Integer, s As Integer n = Val(Text1.Text) If n 0 Or (Not IsNumeric(Text1.Text) Then MsgBox 请输入正整数, 48, 输入的不是正整数 s = 0 For i = 1 To n If i Mod 3 = 0 Then s = s + i End If Next i Text2.Text = s End Sub