Visual Basic程序设计教程 课后答案.docVIP

Visual Basic程序设计教程 （李杰主编 清华大学出版社 2011.2） 习题答案 习题2参考答案 2.2 单选题 填空题 Private Sub Form1_Click() 5、运行程序 6、代码窗口 7、Text1.Text = 我是一个学生 8、LostFocus()事件 9、Label1.Caption = 请输入用户名 　　Label1.ForeColor = vbGreen 10、(Text1.Text)*2 2.4 事件练习题 1、① 该事件的对象是标签Label1，单击标签触发该事件。 ② 缺省Label1对象的代码是针对窗体，其余有Label1对象的代码是针对标签的。 ③ Label1.AutoSize = True语句使标签的大小自动随文字的多少而改变。 2、程序运行后，单击命令按钮，在Text1文本框显示知音海外版，在Text2文本框显示 计算机世界。 3、单击“显示文本框”命令按钮触发的事件过程 Private Sub Command1_Click() Text1.Visible = True Text1.ForeColor = vbRed Text1.Text = VB程序设计 End Sub 单击“隐藏文本框”命令按钮触发的事件过程 Private Sub Command2_Click() Text1.Visible = False End Sub 习题3参考答案 3.2 单选题‘) _ ： 2 双引号（“”） # 3 $ % 4 UCASE() 5.(log(1+d*d)-exp(2))^(5/2) [ 还有一种理解方式：(log(1+d*d)-e*e)^(5/2) ] 6. O113 H4B 习题4参考答案 4.2 单选题 BDCBD 4.3 填空题 1. MsgBox(是否删除？ , vbOkCancel + vbQuestion, 删除) 2. The Length of 12345=5 3. 变量或表达式 4. 1 5. loop 4.4 程序设计题 1. Private Sub Command1_Click() If Text1.Text = asdf Then MsgBox 密码正确！ Else MsgBox 密码错误, vbRetryCancel, 错误 End If End Sub 2. 题目中的“连续产生n*n个字母”应该改为“连续产生n个字母” Private Sub Command1_Click() Dim n%, y%, i% n = Val(Text1.Text) If n 10 Or n=0 Then MsgBox 数据超界！ Text1.Text=”” Text1.SetFocus Else y = Int((90 - 65 + 1) * Rnd) + 65 For i = 1 To n Print Chr(y + i) Next i End If End Sub 3． Private Sub Form_Click() Dim a!, b!, c!, x1!, x21, d! a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = b * b - 4 * a * c If d = 0 Then x1 = (-b + Sqr(d)) / (2 * a) X2 = (-b - Sqr(d)) / (2 * a) Print x1; X2 Else Print 没有实根 End If End Sub 4. Private Sub Form_Click() Dim i%, j%, s%, n%,q% n = InputBox(enter n:) q = 0 For i = 1 To n s = 0 For j = 1 To i s = s + j Next j q = q + s Next i Print q End Sub 5. Private Sub Form_Click() Dim i%, j%, n%, k% n = 0 For i = 1 To 3 For j = 1 To 3 For k = 1 To 3