VB 程序设计
《VB 程序设计》作业参考答案
一.选择题
1-5 ABC CB 6—10 CCA DC 11-15 ABC DB 15-20CDA CB 21-25DBD CC
25-30DAC AA 31-35 DAC AA 36-40 BCC CD 41-45 CCC AC 46-50DDB AD
51-55 ACA CD 56-60 BCA DA 61-65 BAADB 66-70DBDAC 71-72BB
二.填空题
(1) E (2) 程序代码 (3) CmdDisplay.Visible =False (4) t=a(j) (5) And
(6) 回车符 (7) text2.setfocus (8) 3 (9) D=B:B=C:C=D
(11)事件过程 (12) 打开对话框 (13) 3 (14) a(i,j)=0
(16) Put # (17) True (18) I MOD 4=0 (19) AaBbCc
(21)Output ;Write #1,StuNo,StuName,StuEng
三.编程题
1.
Option Base 1
Private Sub Form_click()
Dim a(3) As Integer, m As Integer
Do While m <> -1 And i < 3
m = InputBox("请输入第" & i + 1 & "条边")
i = i + 1
a(i) = m
If a(i) < 0 Then
MsgBox "输入错误,请重新输入!"
i = i - 1
End If
Loop
If a(1) + a(2) > a(3) And Abs(a(1) - a(2)) < a(3) Then
s = (a(1) + a(2) + a(3)) / 2
s = Sqr(s * (s - a(1)) * (s - a(2)) * (s - a(3)))
Print "三角形的面积是"; s
Else
MsgBox "三条边不能构成三角形!"
End
第 1 页 共 3 页
(10) Random
(15) L1.text
20)INT(Rnd*100) ;arr(