vb程序设计教程实验指导与习题解答上机答案()

自测1

程序代码

Private Sub Command1_Click()

Label1.FontSize = Label1.FontSize + 3 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

End Sub

初始窗口：

单机放大之后窗口：

单机下划线之后窗口：

单击加粗之后窗口：

单击还原之后窗口：

自测2

程序代码

Private Sub Command1_Click()

Label1 = "visual basic"

Text1 = "程序设计题"

End Sub

Private Sub Command2_Click()

Text1 = "visual basic"

Label1 = "程序设计题"

End Sub

初始窗口：

单击显示之后窗口：

单击交换之后的窗口：

自测题3

Private Sub Command1_Click()

Label1.FontSize = Label1.FontSize * (0.5) End Sub

Private Sub Command2_Click()

Label1.Top = Label1.Top + 30

Label1.Width = Label1.Width + 20

Label1.Alignment = 1

End Sub

初始窗口：

单击缩小两倍之后的窗口：

单击向右下角移动之后的窗口：自测题4

程序代码

Private Sub Command1_Click() Form1.Caption = "VB学习" Print "简单的VB程序设计" End Sub

Private Sub Command2_Click() Cls

End Sub

Private Sub Command3_Click() End

End Sub

Private Sub Command3_Click() End

End Sub

初始化窗口：

单击显示之后的窗口：

单击清除之后的窗口：

单击退出之后的窗口：

自测题5

程序代码

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command3_Click()

End

End Sub

初始化窗口：

单击运算之后窗口：

单击清除之后的窗口：

单击退出之后的窗口：

自测练习1

Private Sub Command1_Click()

Dim a$

a = Text1.Text

Label1.Caption = Left(a, 2)

End Sub

Private Sub Command2_Click()

a = Text1.Text

Label2.Caption = Right(a, 2)

End Sub

Private Sub Command3_Click()

Text1.Text = Label1.Caption & Label2.Caption

End Sub

初始窗口界面

输入字符串

截取前两个字符

截取后两个字符

字符串连接

自测练习2

Private Sub Form_Click()

Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, k%, l% a = 7349

e = a Mod 10 '个位

d = (a \ 10) Mod 10 '十位

c = (a \ 100) Mo

d 10 '百位

b = a \ 1000 '千位

i = (e + 7) Mod 10 '个位

h = (d + 7) Mod 10 '十位

g = (c + 7) Mod 10 '百位

f = (b + 7) Mod 10 '千位

j = i

i = f '交换后的个位

f = j '交换后的千位

k = h

h = g '交换后的十位

g = k '交换后的百位

l = f * 1000 + g * 100 + h * 10 + i

Text1.Visible = False

Print "加密前的4位整数是7439"; (Chr(10)); "加密后的结果是"; l End Sub

初始界面

单击窗体运行后的界面

自测练习1

Private Sub Form_Click()

Dim a%, b%, c%, d%, e%, f!

a = Val(InputBox("输入第一个数", "输入一个数", 8))

b = Val(InputBox("输入第一个数", "输入一个数", 7))

c = a + b

d = a - b

e = a * b

f = a / b

f = Fix(f * 100 + 0.5) / 100

MsgBox "x+y=" & c & Chr(10) & "x-y=" & d & Chr(10) & "x*y=" & e & Chr(10) & "x/y=" & f, , "输出的结果"

End Sub

自测练习2

Private Sub Form_Click()

Dim a%, b%, c%, d%, e%, f!

a = Val(InputBox("输入第一个数的值"))

b = Val(InputBox("输入第二个数的值"))

c = Val(InputBox("输入第三个数的值"))

d = Val(InputBox("输入第四个数的值"))

e = a + b + c + d

f = e / 4

Print "和="; e

Print "平均值="; f

End Sub

自测练习3

Private Sub Form_Click()

Dim h%, f%, x%, y%

h = Val(InputBox("输入总头数"))

f = Val(InputBox("输入总脚数"))

x = (4 * h - f) / 2

y = (f - 2 * h) / 2

Print "笼中鸡的头数为"; x; "只"

Print "笼中兔的头数为"; y; "只"

End Sub

自测练习1：

Private Sub Form_Click()

Dim a%, b%, c%

a = Val(InputBox("请输入第一条边", "边长"))

b = Val(InputBox("请输入第二条边", "边长"))

c = Val(InputBox("请输入第三条边", "边长"))

If a + b > c And a + c > b And b + c > a Then

If a * a + b * b = c * c Or a * a + c * c = b * b Or b * b = c * c = a * a Then

Print "直角"

ElseIf a = b And b = c Then

Print "等边三角形"

ElseIf a = b Or a = c Or b = c Then Print "等腰三角形"

Else

Print "一般三角形"

End If

Else

Print "不是三角形"

End If

End Sub

不是三角形运行结果：

初始窗口：

输入三条边：

运行结果：

直角三角形运行结果：

等边三角形运行结果如下：

等腰三角形：

一般三角形

自测练习2：

Private Sub Form_Click()

Dim a%, b!

a = Val(InputBox("请输入"))

If a Mod 2 = 0 And a Mod 3 = 0 And a Mod 5 = 0 Then b = Sqr(a)

Print a, b

Else

End

End If

End Sub

初始化窗口：

输入一个数：

运行结果：

自测练习3

Private Sub Command1_Click()

Dim a%, b%

a = Val(Text1.Text)

Select Case a > 0

Case a < 20

MsgBox "行李费为0.2元/kg", , "行李费"

Case a >= 20 And a < 50

MsgBox "行李费为0.3元/kg", , "行李费"

Case a >= 50 And a < 100

MsgBox "行李费为0.4元/kg", , "行李费"

Case Else

b = 0.2 * 100 + (a - 100) * 0.5: MsgBox "行李费为" & b & "元", , "行李费"

End Select

End Sub

初始窗口：

输入10：

输入25：

输入55：

输入120：

自测练习1

Option Base 1

Private Sub Form_Click()

Dim i%, a(1 To 20) As Integer

a(1) = 1: a(2) = 1

Print a(1);

Print a(2);

For i = 3 To 10

a(i) = a(i - 1) + a(i - 2)

Print a(i);

Next i

Print

For i = 11 To 16

a(i) = a(i - 1) + a(i - 2)

Print a(i);

Next i

Print

For i = 17 To 20

a(i) = a(i - 1) + a(i - 2)

Print a(i);

Next i

初始界面：

运行结果界面：

自测练习2

Option Base 1

Private Sub Form_Load()

Form1.Width = 10000

Form1.Height = 5000

End Sub

Private Sub Command1_Click()

Dim i%, j%, t%, a(1 To 4, 1 To 4) As Integer For i = 1 To 4

For j = 1 To 4

a(i, j) = Int(Rnd * 10) + 1

Picture1.Print a(i, j);

Next j

Picture1.Print

Next i

Picture3.Print "对角线的元素如下" For i = 1 To 4

Picture3.Print a(i, i);

Next i

Picture3.Print

For i = 1 To 4

Picture3.Print a(i, 5 - i);

Next i

For i = 1 To 4

t = a(1, i)

a(1, i) = a(4, i)

a(4, i) = t

Next i

For i = 1 To 4

t = a(i, 2)

a(i, 2) = a(i, 3)

a(i, 3) = t

Next i

For i = 1 To 4

For j = 1 To 4

Picture2.Print a(i, j); Next j

Picture2.Print

Next i

End Sub

运行初始界面：

运

运行结果界面：

自测练习1

Sub itostr(a As Integer) Dim b%, c$

a = Val(Text1.Text)

While a >= 1

c = Chr(a Mo

d 10 + 48) & c a = a \ 10

Wend

Text2.Text = c End Sub

Private Sub Command1_Click()

Dim a As Integer

a = Val(Text1.Text)

Call itostr(a)

End Sub

运行初始界面：

运行结果界面：

验证其他数字：

自测练习2：

Public Function area(n) As Double

Dim c#, d#, e#, s#

n = Val(Text2.Text)

c = (1 - 0) / n

While e <= 1

d = I * c:

e = (I + 1) * c

s = s + (Sin(d) + Sin(e)) * c / 2

I = I + 1

Wend

area = s

End Function

Private Sub Command1_Click()

Dim s As Double

Call area(n)

Text1.Text = area(n)

End Sub

运行初始界面：

运行结果：

自测练习3

Private Sub Form_click()

n = Val(InputBox("请输入n的值"))

x = Val(InputBox("请输入x的值"))

Print "e的值="; es(n, x)

End Sub

Private Function es(n, x)

Dim a As Double, b As Double, c As Double, i As Integer a = 1: b = 1: c = 1

For i = 1 To n

a = x * a:

b = b * i:

c = c + a / b

Next i

es = c

End Function

运行初始界面：

输入数据：

运行结果：

自测练习4：

For i = 1 To 4

For j = i + 1 To 5

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 5

Print a(i); " ";

Next i

For i = 1 To 5

If Y < a(i) Then

t = a(i): a(i) = Y: Y = t

End If

Next i

For i = 1 To 6

a(6) = t

Next i

End Function

Private Sub Command1_Click()

Dim i#, a%(1 To 6), Y%

Y = Val(InputBox("输入y的值", "输入数据")) Insertfun a%(), Y

Print

For i = 1 To 6

Print a(i); " ";

Next i

End Sub

运行初始界面：

插入数据：

运行结果：

自测练习1：

Private Sub Command1_Click()

If Ch1.Value = 1 Then

Text1.Text = "报名参加羽毛球比赛"

End If

If Ch2.Value = 1 Then

Text1.Text = "报名参加乒乓球比赛"

End If

If Ch1.Value = 1 And Ch2.Value = 1 Then

Text1.Text = "报名参加羽毛球，乒乓球比赛" End If

End Sub

运行初始界面：

运行结果：

自测练习4：

Private Sub Form_Load()

Label1.Alignment = 2

Label1.FontSize = 24

Label1.FontName = "黑体"

Label1.ForeColor = &HFF&

End Sub

Private Sub Option1_Click()

Label1.Caption = "我是学生"

End Sub

Private Sub Option2_Click()

Label1.Caption = "我是教师"

End Sub

Private Sub Option3_Click()

Label1.Caption = "我是工人"

End Sub

Private Sub Option4_Click()

Label1.Caption = "我是农民"

End Sub

运行初始界面：

运行结果：

自测练习6：

Private Sub Command1_Click()

For i = 0 To Combo1.ListCount - 1

If Combo1.List(i) = Combo1.Text Then Exit For

End If

Next i

If i > Combo1.ListCount - 1 Then Combo1.AddItem Combo1.Text

End If

End Sub

Private Sub Command2_Click()

If Combo1.ListIndex <> -1 Then Combo1.RemoveItem Combo1.ListIndex For i = 0 To Combo1.ListCount - 1

If Combo1.List(i) = Combo1.Text Then Combo1.RemoveItem i

End If