【vb精品源码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。
网学会员整理了vb精品源码-Visual_Basic程序设计教程_课后答案 - 大学课件的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
Visual Basic 程序设计教程 (李杰主编 清华大学出版社 2011.2) 习题答案 习题 2 参考答案2.2 单选题 1、B 2、C 3、A 4、D 5、A 6、B 7、D 8、C 9、B 10、D2.3 填空题 1、事件驱动 2、Cancel 3、Name 4、Private Sub Form1_Click 5、运行程序 6、代码窗口 7、Text1.Text 我是一个学生 8、LostFocus事件 9、Label1.Caption 请输入用户名 Label1.ForeColor vbGreen10、Text1.Text22.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 单选题1 C 2 C 3 D 4 B 5 B 6 B 7 B 8 C 9 D3.3 填空题1.REM或 ‘ _ : “”2 双引号( ) 3 4 UCASE5.log1dd-exp25/2 还有一种理解方式:log1dd-ee5/2 6. O113 H4B 习题 4 参考答案4.2 单选题 BDCBD4.3 填空题 1. MsgBox是否删除? vbOkCancel vbQuestion 删除 2. The Length of 123455 3. 变量或表达式 4. 1 5. loop4.4 程序设计题1. Private Sub Command1_Click If Text1.Text asdf Then MsgBox 密码正确! Else MsgBox 密码错误 vbRetryCancel 错误 End If End Sub2. 题目中的“连续产生 nn 个字母”应该改为“连续产生 n 个字母”Private Sub Command1_Click Dim n y i n ValText1.Text If n 10 Or n 0 Then x1 -b Sqrd / 2 a X2 -b - Sqrd / 2 a Print x1 X2 Else Print 没有实根 End IfEnd Sub4. Private Sub Form_Click Dim i j s nq n InputBoxenter n: q0 For i 1 To n s0 For j 1 To i ssj Next j qqs Next i Print qEnd Sub5.Private Sub Form_Click Dim i j n k n0 For i 1 To 3 For j 1 To 3 For k 1 To 3 Print i j k nn1 If n Mod 5 0 Then Print Next k Next j Next i Print Print n nEnd Sub6. Private Sub Form_Click Dim i j n k For i 1 To 9 For j 0 To 9 For k 0 To 9 n i 100 j 10 k If n i 3 j 3 k 3 Then Print n Next k Next j Next i End Sub 习题 5 参考答案5.2 单选题 1 A 2 B 3 C 4 C 5 D 6 D 7 A 8 C 9 D 10 A 11 A 12 B5.3 填空题 1.False 2.Caption 3.0 ListCount-1 4.Print List1.List3 5.Combo1.ReMoveItem 3 6.LargeChange 7.Timer 8.500 9.Shape 10.Borderstyle5.4 程序设计题 1. Dim op1 op2 result As Single Dim operator As Integer Private Sub Command1_ClickIndex As Integer If Index 0 And Index 12 And Index