广东省二级VB可能会考的程序题

[原创]广东省二级VB可能会考的程序题
因为广东的卷会分A到G的卷，所以会从下面的题中抽两题来考，GOD BLESS YOU！
一.输入一个少于5位的数.输出有几个数字,然后反向输出数字
Private Sub Form_Click()
a = InputBox("请输入一个少于5位的数")
b = Len(a)
Print b
If b >= 5 Then
MsgBox "对不起,已超出4位数"
Else
For i = b To 1 Step -1
c = c & Mid$(a, i, 1)
Next i
Print c
End If
End Sub
二.输入一串以i结尾的字符,查找出含有大写字母的个数,小写字母的个数,数字的个数及
其他符号的个数
Private Sub Form_Click()
a = InputBox("请输入一串以i结尾的字符")
For i = 1 To Len(a)
j = Mid(a, i, 1)
If j >= "a" And j <= "z" Then
c = c + 1
ElseIf j >= "A" And j <= "Z"
Then d = d + 1
ElseIf j >= 0 And j <= 9 Then
e = e + 1
Else f = f + 1
End If
Next i
Print "小写字母的个数为:" & c
Print "大写字母的个数为:" & d
Print "数字的个数为:" & e
Print "其他符号的个数为:" & f End Sub 四.单击按钮,Text中显示内容,单击另一个按钮变色
Private Sub Command1_Click()
Text1.Text = "vb程序设计"
End Sub
Private Sub Command2_Click()
CommonDialog1.Action = 3
Text1.ForeColor = CommonDialog1.Color
End Sub
五计算s=4!+6!+8!
Sub fact(ByVal n As Integer, total As Long)
Dim i%
total = 1
For i = 1 To n
total = total * i
Next i
End Sub
Private Sub Command1_Click()
Dim i%, h&
s = 0: h = 1
For i = 4 To 8 Step 2
Call fact(i, h)
s = s + h
Next i
Print s
End Sub
六计算1+2+….+50 并在标签上显示
Private Sub Form_Click()
Static sum As Integer
For i = 1 To 50
sum = sum + i
Next i
Label1.Caption = sum
End Sub
七求最大公约数
Private Sub Command1_Click()
Dim m%, n%, r%
m = Val(Text1.Text)
n = Val(Text2.Text)
x = m: y = n
Do While n &lt;&gt; 0
r = m Mod n
m = n
n = r
Loop
Print "最大公约数" & m
Print "最小公倍数" & x * y / m
End Sub
1.10*10的矩形，对角线是1，其余是0
Private Sub Form_Click()
Dim a(10, 10) As Integer, i As Integer, j As Integer, k As Integer
For i = 1 To 10
For j = 1 To 10
If i = j Or i + j = 11 Then a(i, j) = 1
Next j
Next i
For i = 1 To 10
For j = 1 To 10
Print a(i, j);
k = k + 1
Next j
If k Mod 10 = 0 Then Print
Next i
End Sub
2.在驱动器列表框DrivelistBox显示器，目录下拉列表框Dir1显示你选的驱动器里的文件夹，文件列表框Filelistbox显示你选的文件夹里的文件，然后在一个文本框显示你所选的文件的目录地址，另一个文本框显示你所选的文件的内容
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Text1.Text = ""
Text2.Text = ""
Text2.Text = File1.FileName
Open Dir1.Path & "\" & File1.FileName For Input As #1
Do While Not EOF(1)
Input #1, a
Text1.Text = Text1.Text & a
Loop
Close #1
End Sub
4.计算两个正整数的最大公约数和最小公倍数
Private Sub Form_Click()
Dim m As Integer, n As Integer, r As Integer, k As Long
Dim m0 As Integer, n0 As Integer, p As Double
m = InputBox("输入正整数m")
n = InputBox("输入正整数n")
m0 = m
n0 = n
Do While n &lt;&gt; 0
r = m Mod n
m = n
n = r
Loop
p = m0
p = p * n0 / m
Print m0; "和"; n0; "的最大公约数为"; m
Print m0; "和"; n0; "的最小公倍数为"; p
End Sub
5.文本框中输入文字，在组合框中选取你要设置的属性，然后再在相应的框架中设置属性Private Sub Check1_Click()
Text1.FontBold = True
End Sub
Private Sub Check2_Click()
Text1.FontItalic = True
End Sub
Private Sub Check4_Click() Text1.FontStrikethru = True End Sub
Private Sub Check3_Click() Text1.FontUnderline = True End Sub
Private Sub Combo1_Click() Select Case Combo1.Text Case "字体"
Frame1.Enabled = True Case "字色"
Frame2.Enabled = True Case "字型"
Frame3.Enabled = True End Select
End Sub
Private Sub Form_Load() Text1.Text = ""
Text1.FontSize = 15
End Sub
Private Sub Option1_Click() Text1.FontName = "幼圆" End Sub
Private Sub Option2_Click() Text1.FontName = "隶书" End Sub
Private Sub Option3_Click() Text1.FontName = "宋体" End Sub
Private Sub Option4_Click() Text1.ForeColor = vbRed End Sub
Private Sub Option5_Click()
Text1.ForeColor = vbY ellow
End Sub
Private Sub Option6_Click()
Text1.ForeColor = vbBlue
End Sub
6.输入三个数，是否能构成三角形
Private Sub Form_Click()
a = V al(Trim(InputBox("请输入第一个数的边数")))
b = V al(Trim(InputBox("请输入第二个数的边数")))
c = V al(Trim(InputBox("请输入第三个数的边数")))
Text1.Text = a
Text2.Text = b
Text3.Text = c
If a + b &gt; c And a + c &gt; b And c + d &gt; a Then
Label6.Caption = "可构成三角形"
Else
Label6.Caption = "不可构成三角形"
End If
End Sub
7.完数
Private Sub Form_Click()
Dim i As Long, j As Long, f As String
For i = 2 To 10000
s = 1
f = "1"
For j = 2 To i / 2
If i Mod j = 0 Then
s = s + j
If s &gt; i Then Exit For
f = f & "+" & j
End If
Next j
If i = s Then Print i; "="; f; ""
Next i
End Sub
1.fact事件，计算s＝4!+6!+8! 答案：
Public Function fact(n As Integer) Dim s As Long s = 1 For i = 1 To n s = s * i Next fact = s End Function Private Sub Form_Click() Dim m As Long m = fact(4) + fact(6) + fact(8) Print m End Sub
倒序输出，输入ABCDEFJ输出为JFEDCBA另一道是求：100----300之间的质数，并分行10个为一行在窗体上打印出来。