实验2\实验二做一做2
Private Sub Command1_Click()
Label1.FontSize = 26
End Sub
Private Sub Command2_Click()
Label1.FontBold = True
End Sub
Private Sub Command3_Click()
Label1.FontUnderline = True
End Sub
Private Sub Command4_Click()
Label1.FontSize = 10
Label1.FontBold = False
Label1.FontUnderline = False
Label1.Move 3480
End Sub
Private Sub Command5_Click()
Label1.Move 0
End Sub
实验2\实验二做一做3
Private Sub Command1_Click()
Command1.Move 0
Command1.Top = 0
Command1.Width = 1507
Command1.Height = 607
End Sub
实验2\实验二做一做4
Private Sub Text1_Click()
Text1.Top = 0
Text1.Left = 0
Text1.Height = Screen.Height
Text1.Width = Screen.Width
End Sub
实验2\实验二做一做5
Private Sub Command1_Click()
Dim sum As Double
sum = Val(Text2.Text) * Val(Text3.Text) * Val(Text1.Text) / 100
Text4.Text = sum + Val(Text1)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
实验3\实验三做一做
Private Sub Text1_Click()
Dim sample$, x%, y%
FontSize = Val(Text1)
FontBold = True
ForeColor = vbBlue
Cls
sample$ = "Microsoft Visual Basic 程序设计"
CurrentX = (Form1.Width - TextWidth(sample$)) / 2
CurrentY = (Form1.Height - TextHeight(sample$)) / 2
Print sample$
End Sub
实验5\实验五做一做2
Private Sub Command1_Click()
Text3.Text = Val(Text1) + Val(Text2)
Label1.Caption = "+"
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1) - Val(Text2)
Label1.Caption = "-"
End Sub
Private Sub Command3_Click()
Text3.Text = Val(Text1) * Val(Text2)
Label1.Caption = "*"
End Sub
Private Sub Command4_Click()
Text3.Text = Val(Text1) / Val(Text2)
Label1.Caption = "/"
End Sub
Private Sub Command5_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Label1 = " "
End Sub
实验5\实验五做一做3
Private Sub Command1_Click()
End Sub
Private Sub Form_Click()
Dim a(8) As Integer
Dim i%
For j = 1 To 8
a(j) = InputBox("请输入数据：")
Next j
Print "str1=";
For j = 1 To 8
Print a(j);
Next j
Print
Print "str2=";
For j = 1 To 4
Print a(j);
Print a(9 - j);
Next j
Print
End Sub
实验5\实验五做一做4
Private Sub Form_Click()
Dim i%, j%, d%
For i = 1 To 4
Print Tab(36 - 6 * i);
For j = 1 To i * 2 - 1
Print i;
Next j
Print
Next i
Print Tab(9);
For i = 1 To 8
Print 5;
Next
End Sub
实验5\实验五做一做5
Private Sub Form_Click()
Dim i As Integer, j%, k As Integer, d%
d = 0
Randomize
i = Int(900 * Rnd + 100)
Print "输出的是："
Print i;
For j = 1 To 3
k = i Mod 10
d = d * 10 + k
i = i \ 10
Next j
Print d
End Sub
实验5\实验五做一做6
Private Sub Command1_Click()
Text1.FontSize = 48
End Sub
Private Sub Command2_Click()
Text1.FontSize = 8
End Sub
Private Sub Command3_Click()
Text1.FontSize = 12
End Sub
实验6\实验
六做一做2
Private Sub Text1_Change()
x = Val(Text1.Text)
If x < 1 Then
y = 1 - x
ElseIf 1 <= x And x <= 2 Then
y = (1 - x) * (2 - x)
Else: y = x - 2
End If
Label1.Caption = "Y=" & y
End Sub
实验6\实验六做一做3
Private Sub Text1_Change()
Dim str1 As String, s$
Dim i%, j%, x%, l%, k%
str1 = Text1.Text
x = Len(str1)
i = 0
j = 0
For l = 1 To x
s = Mid(str1, l, 1)
If s = "(" Then
i = i + 1
ElseIf s = ")" Then
j = j + 1
End If
Next l
If i > j Then
k = i - j
Print "左括号多余右括号"; k
ElseIf i = j Then
Print ""
Else: k = j - i
Print "右括号多余左括号:"; k
End If
End Sub
实验6\实验六做一做5
Private Sub Form_Click()
Dim s$, w$
Dim i%, j%, k%, l%
l = 0
j = 0
s = Text1.Text
k = Len(s)
For i = 1 To k
w = Mid(s, i, 1)
If w = "a" Or w = "e" Or w = "i" Or w = "o" Or w = "u" Then
j = j + 1
ElseIf w = " " Then
j = j
l = l
Else: l = l + 1
End If
Next i
Print "元音字母的数目："; j
Print "其他字母的数目为："; l
End Sub
实验7\实验七做一做1
Private Sub Form_Click()
Dim i%, m%
m = 1
i = 0
While (i < 5)
m = m + 1
If m Mod 3 = 1 And m Mod 5 = 1 And m Mod 7 = 1 Then
Print m;
i = i + 1
End If
Wend
End Sub
实验7\实验七做一做2
Private Sub Form_Click()
Dim a%(7), m%, t%
For i = 1 To 7
a(i) = Val(InputBox("请输入第" & i & "个评委打的分数", "请输入数据"))
Next
For i = 1 To 6
For j = 1 To 6
If a(j) > a(j + 1) Then
m = a(j)
a(j) = a(j + 1)
a(j + 1) = m
End If
Next
Next
t = 0
For i = 2 To 6
t = t + a(i)
Next
Print "这个参赛者的得分为";
Print t
End Sub
实验7\实验七做一做3
Private Sub Form_Click()
Dim m%, n%
For i = 1000 To 9999
m = i Mod 1000
n = m \ 10
If i = n ^ 2 Then
Print i
End If
Next
End Sub
实验7\实验七做一做4
Private Sub Form_Click()
Dim a%(5, 5), b%(25), n%, m%, k%
k = 1
Print "生成的5阶两位数矩阵:"
For i = 1 To 5
For j = 1 To 5
Randomize
a(i, j) = Int(Rnd * 89 + 10)
Print a(i, j);
Next
Print
Next
n = 0
For i = 1 To 5
For j = 1 To 5
n = n + 1
b(n) = a(i, j)
Next
Next
For j = 1 To 24
For i = 1 To 24
If b(i) > b(i + 1) Then
m = b(i)
b(i) = b(i + 1)
b(i + 1) = m
End If
Next
Next
Print "排序后的矩阵："
For j = 1 To 25
Print b(j);
If k > 4 Then
Print
k = 0
End If
k = k + 1
Next
End Sub
实验7\实验七做一做6
Private Sub Form_Click()
Dim a%(11, 11)
a(6, 6) = 6
For i = 1 To 11
a(5, i) = 5
a(7, i) = 5
a(i, 5) = 5
a(i, 7) = 5
Next
For i = 1 To 11
a(4, i) = 4
a(8, i) = 4
a(i, 4) = 4
a(i, 8) = 4
Next
For i = 1 To 11
a(3, i) = 3
a(9, i) = 3
a(i, 3) = 3
a(i, 9) = 3
Next
For i = 1 To 11
a(2, i) = 2
a(10, i) = 2
a(i, 2) = 2
a(i, 10) = 2
Next
For i = 1 To 11
a(1, i) = 1
a(11, i) = 1
a(i, 1) = 1
a(i, 11) = 1
Next
For i = 1 To 11
For j = 1 To 11
Print a(i, j);
Next
Print
Next
End Sub
实验7\实验七做一做7
Private Sub Form_C
lick()
Dim m(1 To 8) As String
m(1) = "A"
m(2) = "B"
m(3) = "C"
m(4) = "D"
m(5) = "E"
m(6) = "F"
m(7) = "G"
m(8) = "H"
For i = 1 To 8
Print m(i);
Next
Print
For j = 2 To 8
For i = j To 1 Step -1 'For i = j To 2 Step -1
Print m(i);
Next
For k = 1 To 8 - j 'For k = 1 To 8 - j+1
Print m(k);
Next
Print
Next
End Sub
实验8\实验八做一做2
Public Sub movestr(s$(), k%, w As Boolean)
Dim i%, x%, str$(), L%
L = 1
x = UBound(s)
ReDim str$(x)
If w = False Then
For i = 1 To x - k
str(i + k) = s(i)
Next i
For i = x - k + 1 To x
str(L) = s(i): L = L + 1
Next i
Else
For i = k To x
str(i - k + 1) = s(i)
Next i
For i = 1 To k
str(x - k + 1) = s(i)
Next i
End If
For i = 1 To x
s(i) = str(i)
Next i
End Sub
Private Sub Command1_Click()
Dim s As String, a$(), m%, n%
Dim tag As Boolean
s = Text1.Text
m = Len(Text1.Text)
ReDim a(m) As String
For j = 1 To m
a(j) = Mid(s, j, 1)
Next j
If Text3.Text = r Then
tag = False
ElseIf Text3.Text = L Then
tag = True
End If
n = Val(Text2.Text)
Call movestr(a, n, tag)
For j = 1 To m
Text4.Text = Text4.Text & " " & a(j)
Next j
End Sub
实验8\实验八做一做3
Public Sub shanchu(a%(), b%())
Dim j%
j = 1
Print "数组A："
For i = 1 To UBound(a)
Print a(i);
Next
Print
Print "数组B:"
For j = 1 To UBound(b)
Print b(j);
Next
Print
Print "删除后的数组X"
Print
For i = 1 To UBound(b)
For j = 1 To UBound(b)
If a(i) = b(j) Then
a(i) = 0
End If
Next j
Next i
For i = 1 To UBound(a)
If a(i) <> 0 Then
Print a(i);
End If
Next
End Sub
Private Sub Command1_Click()
Cls
End Sub
Private Sub Form_Click()
Dim a%(10), b%(10)
For i = 1 To 10
Randomize
a(i) = Int(Rnd * 31 + 40)
b(i) = Int(Rnd * 31 + 40)
Next i
Print
Call shanchu(a, b)
End Sub
实验8\实验八做一做4
Public Sub Delestr(a$, b$)
Dim w1$, w2$
Dim i%, j%, n%, m%
n = Len(a)
m = Len(b)
While m < n
i = InStr(1, a, b)
If i <> 0 Then
w1 = Mid(a, 1, i - 1)
w2 = Mid(a, i + m, n)
Text3.Text = Text3.Text & w1
a = w2
End If
n = Len(a)
Wend
Text3.Text = Text3.Text & w2
End Sub
Private Sub Command1_Click()
Dim s1$, s2$ '
s1 = Text1.Text
s2 = Text2.Text
Call Delestr(s1, s2)
End Sub
实验9\实验九做一做3
Public Function zhuan(n%, m$)
Dim a%(), j%, k%
k = 0
j = Len(m)
ReDim a(j)
For i = 1 To j
a(i) = Mid(m, i, 1)
Next i
For i = 1 To j
k = n * k + a(i)
Next i
Text3.Text = k
End Function
Private Sub Command1_Click()
Dim m$, n%
n = Text1.Text
m = Text2.Text
Call zhuan(n, m)
End Sub
实验9\实验九做一做4
Private Sub Command1_Click()
Dim a%, namx%
Dim b$, c$, maxs$
b = RTrim(Text1.Text)
Do While Len(b) > 0
a = InStr(b, " ")
If a = 0 Then
c = b
b = ""
Else
c = Left(b, a - 1)
b = Mid(b, a + 1)
End If
If nmax < Len(c) Then
nmax = Len(c)
maxs = c
End If
b = RTrim(b)
Loop
Text2.Text = maxs
End Sub
实验10\实验十2
Private Sub Check
1_Click()
Caption = "复选框举例"
If Check1.Value = 1 Then
Check1.Caption = "选中"
ElseIf Check1.Value = 0 Then
Check1.Caption = "未选中"
End If
End Sub
Private Sub Form_Load()
Form1.Caption = "列表框控件"
List1.AddItem "张三"
List1.AddItem "李四"
List1.AddItem "王五"
List1.AddItem "赵六"
List1.AddItem "孙琦"
List1.AddItem "张雨绮"
List1.AddItem "刘永乐"
List1.AddItem "丁几敢都很美开的的ekfijfko9wek就覅减肥法"
List1.AddItem "李平"
List1.AddItem "可以呀"
List1.AddItem "欧阳克"
List1.AddItem "王克"
End Sub
实验10\实验十3
Private Sub Command1_Click()
Dim i%
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then
List2.AddItem List1.List(i)
List1.RemoveItem (i)
End If
Next i
End Sub
Private Sub Command2_Click()
Dim i%
For i = List2.ListCount - 1 To 0 Step -1
If List2.Selected(i) Then
List1.AddItem List2.List(i)
List2.RemoveItem (i)
End If
Next i
End Sub
Private Sub List1_DblClick()
Dim i%
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then
List2.AddItem List1.List(i)
List1.RemoveItem (i)
End If
Next i
End Sub
Private Sub List2_DblClick()
Dim i%
For i = List2.ListCount - 1 To 0 Step -1
If List2.Selected(i) Then
List1.AddItem List2.List(i)
List2.RemoveItem (i)
End If
Next i
End Sub
实验10\实验十4
Private Sub Form_Load()
Combo2.Text = "9"
Combo1.Text = "新宋体"
Frame1.Caption = "示例"
Combo1.AddItem "宋体"
Combo1.AddItem "楷体"
Combo1.AddItem "仿宋"
Combo1.AddItem "黑体"
Combo2.AddItem "2"
Combo2.AddItem "3"
Combo2.AddItem "4"
Combo2.AddItem "4"
Combo2.AddItem "5"
Combo2.AddItem "6"
Combo2.AddItem "7"
Combo2.AddItem "8"
Combo2.AddItem "9"
Combo2.AddItem "10"
Combo2.AddItem "11"
Combo2.AddItem "12"
Combo2.AddItem "13"
Combo2.AddItem "14"
Combo2.AddItem "15"
Combo2.AddItem "16"
Combo2.AddItem "17"
Combo2.AddItem "18"
Combo2.AddItem "19"
Combo2.AddItem "21"
Combo2.AddItem "23"
Combo2.AddItem "25"
Combo2.AddItem "27"
Combo2.AddItem "29"
Combo2.AddItem "31"
Combo2.AddItem "33"
Combo2.AddItem "35"
Combo2.AddItem "37"
Combo2.AddItem "39"
Combo2.AddItem "40"
Combo2.AddItem "41"
Combo2.AddItem "42"
Combo2.AddItem "43"
End Sub
Private Sub Command1_Click()
Label3.FontName = Combo1.Text
Label3.FontSize = Combo2.Text
End Sub
Private Sub Command2_Click()
Label3.FontName = "宋体"
Label3.FontSize = 9
End Sub
实验10\实验十5
Private Sub Form_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_DblClick()
Picture1.ForeColor = QBColor(Int(Rnd * 16))
Timer1.Interval = 500
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Label1.Caption = "当前时间"
Label2.Caption = Time
Picture1.Print " V; B; 俱; 乐; 部"
End Sub
Private Sub Timer1_Timer()
Call bian
End Sub
Public Sub bian()
Dim i As Integer
i = 16
Randomize
i = Int(Rnd * 16)
Picture1.ForeColor = QBColor(Int(Rnd * i))
Picture1.CurrentX = 0
Picture1.CurrentY = 0
Picture1.Print " V; B; 俱; 乐; 部"
End Sub
实验10\实验十7
Private Sub Form_Click()
Dim s2$, s1$, s3$, m1%, m2%, k1%, k2%, k3%, k4%, k5%, k6%, k7%, k8%, k9%, k10%, k11%, k12%, k13%, k14%, k15%, k16%, k17%, k18%, k19%, k20%, k21%, k22%, k23%, k24%, k25%, k26%
s1 = Text1.Text
For m2 = 1 To Len(s1)
s2 = Mid(s1, m2, 1)
If s2 = "a" Or s2 = "A" Then
k1 = k1 + 1
ElseIf s2 = "b" Or s2 = "B" Then
k2 = k2 + 1
ElseIf s2 = "c" Or s2 = "C" Then
k3 = k3 + 1
ElseIf s2 = "d" Or s2 = "D" Then
k4 = k4 + 1
ElseIf s2 = "e" Or s2 = "E" Then
k5 = k5 + 1
ElseIf s2 = "f" Or s2 = "F" Then
k6 = k6 + 1
ElseIf s2 = "g" Or s2 = "G" Then
k7 = k7 + 1
ElseIf s2 = "h" Or s2 = "H" Then
k8 = k8 + 1
ElseIf s2 = "i" Or s2 = "I" Then
k9 = k9 + 1
ElseIf s2 = "j" Or s2 = "J" Then
k10 = k10 + 1
ElseIf s2 = "k" Or s2 = "K" Then
k11 = k11 + 1
ElseIf s2 = "l" Or s2 = "L" Then
k12 = k12 + 1
ElseIf s2 = "m" Or s2 = "M" Then
k13 = k13 + 1
ElseIf s2 = "n" Or s2 = "N" Then
k14 = k14 + 1
ElseIf s2 = "o" Or s2 = "O" Then
k15 = k15 + 1
ElseIf s2 = "p" Or s2 = "P" Then
k16 = k16 + 1
ElseIf s2 = "q" Or s2 = "Q" Then
k17 = k17 + 1
ElseIf s2 = "r" Or s2 = "R" Then
k18 = k18 + 1
ElseIf s2 = "s" Or s2 = "S" Then
k19 = k19 + 1
ElseIf s2 = "t" Or s2 = "T" Then
k20 = k20 + 1
ElseIf s2 = "u" Or s2 = "U" Then
k21 = k21 + 1
ElseIf s2 = "v" Or s2 = "V" Then
k22 = k22 + 1
ElseIf s2 = "w" Or s2 = "W" Then
k23 = k23 + 1
ElseIf s2 = "x" Or s2 = "X" Then
k24 = k24 + 1
ElseIf s2 = "y" Or s2 = "Y" Then
k25 = k25 + 1
ElseIf s2 = "z" Or s2 = "Z " Then
k26 = k26 + 1
End If
Next
Picture1.Print "a=" & k1; "b=" & k2; "c=" & k3; "d=" & k4
Picture1.Print "e=" & k5; "f=" & k6; "q=" & k7; "h=" & k8
Picture1.Print "i=" & k9; "j=" & k10; "k=" & k11; "l=" & k12
Picture1.Print "m=" & k13; "n=" & k14; "o=" & k15; "p=" & k16
Picture1.Print "q=" & k17; "r=" & k18; "s=" & k19; "t=" & k20
Picture1.Print "u=" & k21; "v=" & k22; "w=" & k23; "x=" & k24
Picture1.Print "y=" & k25; "z=" & k26;
s1 = RTrim(s1)
Do While Len(s1) > 0
m1 = InStr(s1, " ")
If m1 = 0 Then
s3 = s1
s1 = ""
List1.AddItem s3
Else
s3 = Left(s1, m1 - 1)
s1 = Mid(s1, m1 + 1)
List1.AddItem s3
End If
Loop
End Sub
文件操作2
Private Sub Command1_Click()
Dim str1$, str2$
Open "d:\t1.txt" For Input As #1
Open "d:\t2.txt" For Input As #2
For i = 1 To 4
Line Input #1, str1
Line Input #2, str2
Text2 = Text2 & str1 & vbCrLf
Text2 = Text2 & str2 & vbCrLf
Next
Close
End Sub
Private Sub Form_Load()
Dim str1$, str2$
Open "d:\t1.txt" For Input As #1
Open "d:\t2.txt" For Input As #2
For i = 1 To 4
Line Input #1, str1
Line Input #2, str2
Text1 = Text1 & str1 & vbCrLf
Text2 = Text2 & str2 & vbCrLf
Next
Close
End Sub