(完整word版)VB程序设计教程(第3版)课后实验完整答案.pdf

A．1

Private Sub Command1_Click()

Label3 = Text1

End Sub

A．2

Private Sub Form_Load()

Timer1.Interval = 0

End Sub

Private Sub Command1_Click() '自动

Private Sub Timer1_Timer()

Call MyMove

End Sub

Sub MyMove()

Label1.Move Label1.Left - 50

If Label1.Left < 0 Then Label1.Left = Form1.Width

End Sub

A．3

Private Sub Form_Click()

Text1 = Val(Text1) + 1

Caption = " 单击窗体，改变图片 "

Picture = LoadPicture(App.Path + "_015.bmp")

Print " 欢迎使用 VB"

End Sub

Private Sub Form_DblClick()

Cls

Caption = " 双击窗体，卸去图片 "

Picture = LoadPicture("") '

End Sub

Private Sub Form_Load()

Picture = LoadPicture(App.Path + "\n_016.bmp")

Print " 装入图 "

End Sub

'Form1.Width = 260 * 16 ' 260 是 Tongji-2.bmp 图的宽度，象素单位

'Form1.Height = 260 * 16 + 200 ' 260 是图的高度，象素单位， 200 是窗体的标题栏高度

End Sub

Text2.Text = Text1.SelText

Text2.FontName = Text1.FontName

Text2.FontSize = Text1.FontSize

End Sub

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

Text1 = Format(9 / 5 * Val(Text2) + 32, "0.00")

或

f = Val(Text1)

c = 5 / 9 * (f - 32)

End Sub

Private Sub Command2_Click()

Dim ff!, cc! ' 声明两个变量

cc = Val(Text2)

ff = 9 / 5 * cc + 32

Text1 = Format(ff, "0.00") ' 保留两位小数

End Sub

B．2

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

Label3 = Format(Val(Text1) * 3.14 * 2, "0.00")

If Not IsNumeric(Text1.Text) Then

MsgBox " 输入有非数字字符，请重新输入 ", , " 警告 "

Text1.Text = ""

Text1.SetFocus

或

Private Sub Command2_Click()

Label3 = Format(Val(Text1) * 3.14 * 2, "0.00")

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Not IsNumeric(Text1.Text) Then

Text1.Text = ""

End If

End Sub

B．3

End Sub

B．4

Private Sub Command1_Click()

Dim x, dx, cd

x = Text1.Text

dx = UCase(x)

cd = Len(x)

Print " 大写字母为 :"; dx

Print " 字符串长度为 :"; cd

End Sub

B．5

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

Dim x%, x1%, x2%, x3%

x2 = (x Mod 100) \ 10 ' 分离出的十位数

x3 = x \ 100 ' 分离出的百位数

Label1 = x1 * 100 + x2 * 10 + x3

End Sub

B．6

End Sub

Private Sub Command1_Click()

Print

For i = 1 To 5

Print Tab(15 - i * 2); String(2 * i - 1, " ★"); Spc(18 - 4 * (i - 1)); String(2 * i - 1, " ★")

End Sub

Private Sub Command2_Click()

Cls

进一步要求：

For i = 1 To 5

Print Tab(15 - i * 2); String(2 * i - 1, " ★ "); String(10 - (2 * i - 1), " ☆"); String(2 * i - 1, " ★

Next i

End Sub

Private Sub Command2_Click()

Cls

End Sub

Private Sub Form_Click()

x = Val(InputBox(" 输入一正实数 ", " 计算 ", 0))

pf = Format(x * x, "0.000")

lf = Format(x * x * x, "0.000")

lfg = Format(x ^ (1 / 3), "0.000")

Print " 平方为 :"; pf; Space(5); " 平方根为 :"; pfg; Space(5); " 立方为 :"; lf; Space(5); " 立方根为 :";

If x < 1000 Then

y = x

ElseIf x < 2000 Then

y = 0.9 * x

ElseIf x < 3000 Then

y = 0.8 * x

Else

y = 0.7 * x

End If

Print y

End Sub

Private Sub Form_Click()

Dim x!, y!

x = Val(InputBox(" 输入上网时间 "))

Else

y = 30 + 2.5 * 40 + 2 * (x - 50)

If y > 150 Then

y = 150

End If

Print y

End Sub

Private Sub Command1_Click()

Dim x!, y!, z!