Visual Basic程序设计作业答案
作业2
一、选择题
1．B 2．C 3．D 4．B 5．D 6．A 7．B 8．C 9．A 10．D 11．C 12．B 13．D 14．C 15．A 16．B 17．C 18．B 19．D 20．B
二、填空题
1．下拉式菜单弹出式菜单
2．打开另存为颜色字体打印
3．文本框列表框
4．Option Base 1
5．Call语句
6．工程工程属性通用Form1.Show
7．0
8．Sub过程的过程名不能返回值，而Function过程能通过过程名返回值
9．窗体模块标准模块类模块
10．移出内存无效状态
11．（1）2*Cosα*Sinα/(2*α)
(2) Sqr(s*(s-a)*(s-b)*(s-c))
(3) Sin(45*3.14/180)
12．（1）x>=1 And x<12
(2) A+B>=C Or a-c<=c
(3) a>0 And b>0 Or(a<0 And b<0)
13．False
14．For While Do
15．3
三、阅读下列程序，给出程序运行结果。

1．程序运行后，单击窗体，输出结果为：5050。

2．
3．
4．
3.4 3
5．
*
***
*****
*******
*********
四、程序设计题
1．
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(Text1.Text)
If x < 100 Then
y = x
Else
If x < 200 Then
y = 9.5 * x
Else
If x < 300 Then
y = 0.9 * x
Else
If x < 500 Then
y = 0.8 * x
Else
y = 0.7 * x
End If
End If
End If
End If
Text2.Text = y
End Sub
2．
Private Sub Form_Load()
Dim x As Integer
x = 100
Do Until x > 200
If x Mod 3 <> 0 Then
Text1.Text = Text1.Text & Str(x) & Chr(13) & Chr(10)
End If
x = x + 1
Loop
End Sub
3．
Private Sub Form_Click()
Print "*";Tab(9);3,Tab(18);6;Tab(27);9;Tab(36);12
Print
For I=15 to 18
Print I;
For j=3 to 12 Step 3
Print Tab(3*j);j*I;
Next j
Print
Next I
End sub
4．
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Option1_Click()
Text1.Text = 10 * 2
End Sub
Private Sub Option2_Click()
Text1.Text = 10 / 2
End Sub
Private Sub Option3_Click()
Text1.Text = 10 + 2
End Sub
Private Sub Option4_Click()
Text1.Text = 10 - 2
End Sub
5．
Private Function Day(n As Integer)
Select Case n
Case 0
Day = "星期日" & Chr(13) & "(Sunday)"
Case 1
Day = "星期一" & Chr(13) & "(Monday)"
Case 2
Day = "星期二" & Chr(13) & "(Tuesday)"
Case 3
Day = "星期三" & Chr(13) & "(Wednesday)"
Case 4
Day = "星期四" & Chr(13) & "(Thursday)"
Case 5
Day = "星期五" & Chr(13) & "(Friday)"
Case 6
Day = "星期六" & Chr(13) & "(Saturday)"
End Select
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim n As Integer
n = Val(Text1.Text)
If KeyAscii = 13 Then
If n >= 0 And n < 7 Then
Label1.Caption = Day(n)
Else
MsgBox "请输入0~6之间的整数！"
End If
End If
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
6．
新建一个工程，在默认的窗体Form1上放置一个Picture控件，然后编写如下代码。

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
MsgBox "You pressed right Button"
Picture1.MousePointer = vbArrow
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.MousePointer = vbUpArrow
End Sub
7．
Private Sub Form_Load()
List1.AddItem "李敏"
List1.AddItem "张华"
List1.AddItem "吕晓烨"
List1.AddItem "赵巍"
List1.AddItem "袁莉"
List1.AddItem "王津"
List1.AddItem "何小渴"
List1.AddItem "崔宁"
List1.AddItem "陈曦"
List1.AddItem "刘伟楠"
End Sub
Private Sub Command1_Click()
If Text1.Text <> "" Then
List1.AddItem Text1.Text
Text1.Text = ""
Else
MsgBox "请在文本框中输入信息！" End If
End Sub
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex
End Sub
Private Sub Command3_Click()
If Command3.Caption = "修改" Then
Text1.Text = List1.Text
Text1.SetFocus
Command1.Enabled = False
Command2.Enabled = False
Command3.Caption = "修改确认"
Else
List1.List(List1.ListIndex) = Text1.Text
Command1.Enabled = True
Command2.Enabled = True
Text1.Text = ""
Command3.Caption = "修改"
End If
End Sub
Private Sub List1_Click()
If List1.ListIndex <> -1 Then
Command2.Enabled = True
Command3.Enabled = True
End If
End Sub。