VB编程程序代码

10~100找数
Option Base 1
Dim a(10) As Integer
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
a(i) = Int(Rnd * 89) + 11
List1.AddItem a(i)
Next i
End Sub

Private Sub Command2_Click()
Dim i As Integer
For i = 1 To 10
If a(i) = Text1 Then Exit For
Next i
If i <= 10 Then
MsgBox Text1 & "出现在第" & i & "位"
Else
MsgBox "没有" & Text1
End If
End Sub

Private Sub Command3_Click()
List1.Clear
Text1 = ""
End Sub

Private Sub Command4_Click()
End
End Sub

10转2进制
Private Sub Command1_Click()
Dim n As Integer, st As String, p As String * 1
n = Val(Text1)
Do
p = n Mod 2
st = p & st
n = n \ 2
Loop Until n = 0
Text2 = st
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

选择排序
Option Base 1
Dim a(10) As Integer
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
a(i) = Int(Rnd * 31) + 20
Text1 = Text1 & Str(a(i))
Next i
End Sub

Private Sub Command2_Click()
Dim i As Integer, j As Integer
Dim t As Integer
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
For i = 1 To 10
Text2 = Text2 & Str(a(i))
Next i
End Sub

Private Sub Command3_Click()
Text1 = ""
Text2 = ""
End Sub
Private Sub Command4_Click()
End
End Sub

求最大公约数
Private Sub Command1_Click()
Dim m As Long, n As Long, r As Long
m = Val(Text1.Text)
n = Val(Text2.Text)
If m < 1 Or n < 1 Then
Text3.Text = "数据错误！"
Else
Do
r = m Mod n
m = n
n = r
Loop Until n = 0
Text3.Text = CStr(m)
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

冒泡排序
Option Base 1
Dim a(10) As Integer
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
a(i) = Int(Rnd * 31) + 20
Text1 = Text1 & Str(a(i))
Next i
End Sub

Private Sub Command2_Click()
Dim i As Integer, j As Integer
Dim t As Integer
For i = 1 To 9
For j = 1 To 10 - i
If a(j) > a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i
For i = 1 To 10
Text2 = Text2 & Str(a(i))
Next i
End Sub

Private Sub Command3_Click()
Text1 = ""
Text2 = ""
End Sub

Private Sub Command4_Click()
End
End Sub

100以内素数
Private Sub Command1_Click()
Dim i As Integer, k As Integer
For i = 2 To 100
If prime(i) Then
Text1 = Text1 & Right(" " & i, 3)
k = k + 1
If k Mod 10 = 0 Then Text1 = Text1 & vbCrLf
End If
Next i
End Sub
Private Function prime(ByVal n As Integer) As Boolean
Dim i As Integer
For i = 2 To n - 1
If n Mod i = 0 Then Exit Function
Next i
prime = True
End Function

找最大和最小元数
Option Explicit
Option Base 1

Private Sub Command1_Click()
Dim a(20) As Integer, i As Integer, st As String
Dim max As Integer, min As Integer, maxp As Integer, minp As Integer
For i = 1 To 20
a(i) = Int(Rnd * 99) + 1
st = st & Str(a(i))
If i Mod 10 = 0 Then st = st & vbCrLf
Next i
Text1 = st
max = a(1): min = a(1)
maxp = 1: minp = 1
For i = 2 To 20
If a(i) > max Then
max = a(i)
maxp = i
ElseIf a(i) < min Then
min = a(i)
minp = i
End If
Next i
Text2 = Str(max)
Text3 = Str(min)
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub Command3_Click()
End
End Sub

判断素数
Option Explicit
Dim i As Integer
Dim x As Integer

Private Sub CmdJudge_Click()
x = Val(TxtInput.Text)
For i = 2 To Sqr(x)
If x Mod i = 0 Then Exit For
Next
If i > Sqr(x) Then
MsgBox Str(x) & "是素数"
Else
MsgBox Str(x) & "不是素数"
End If
End Sub

Private Sub Command2_Click()
End
End Sub