《vb 课后习题答案》由会员分享，可在线阅读，更多相关《vb 课后习题答案（15页珍藏版）》请在金锄头文库上搜索。
1、习题5一 判断题1.2.3.4567.8.9.10二 选择题1 B2 B3 A4 C5 D6 D7 A8 C三 程序阅读题1 窗体上的显示结果：2 窗体上的显示结果：四 程序填空题1. (1) I+j-1(2) 7-I(3) print2. (1) Dim STR As String(2) inputbox(STR)(3) UCase(x) = E五 程序设计题1Private Sub Form_Click() Dim i As Integer Dim j As Integer Dim n As Integer n+1层为杨辉三角形的层数 Dim a() As Integer 定义动态数组，因
2、为层数未定 n = InputBox(请输入一个正整数 9 Then Print 输入的数太大，n a(0) a(j + 1) = a(j) j = j - 1 Loop a(j + 1) = a(0) Print n; Spc(8); For j = 1 To I Print a(j); Spc(2); Next j Print Next IEnd Sub习题6一 判断题12345678910二 选择题1 B2 D3 C4 A5 B6 B7 A8 A三 程序阅读题1. 单击窗体后的显示结果：2单击窗体后的显示结果：四 程序填空题1(1) int(rnd*90+10) (2) i + 1 To
3、 30 (3) a(i)=a(j) (4) a(i) mod 202. (1) isp=true (2) m mod I=0 (3) p2 and p1 (4) =p2五 程序设计题1 代码：Private Sub Form_Click() Dim i As Integer, p As Boolean, q As Boolean For i = 100 To 200 If i Mod 2 = 0 Then For j = 3 To i 2 Step 2 isp j, p If p Then isp i - j, q If q Then Print i; =; j; +; i - j Exit
4、For End If End If Next j End If Next i End Sub Public Sub isp(ByVal m As Integer, p As Boolean) Dim i% p = True For i = 2 To Int(Sqr(m) If m Mod i = 0 Then p = False: Exit For Next i End Sub2代码：Private Sub Command1_Click() Dim str1 As String Dim l As Integer Dim str2 As String Dim c As Integer str1
5、= Text1.Text l = Len(str1) str2 = InputBox(请输入待查字母) c = 0 For i = 1 To l If Mid(str1, i, 1) = str2 Then c = c + 1 Next i Label1.Caption = 字母 & str2 & 有 & c & 个End Sub第7章 标准控件（二）一、 判断题1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 二、 选择题1. B2. B3. A4. C5. B6. C7. A8. D9. B10. D三、 程序阅读题1. 运行上面的程序，然后单击窗体，列表中所显示的项目为：It
6、em1、Item32. 程序运行后，单击窗体，则在文本框中显示的内容是程序设计教程，在图片框中显示的内容是内容提要。四、 程序填空题1（1）1000 （2）timer1.enabled=true （3）0 （4）x3600 （5）(x mod 3600) mod 602.（1）Text1(Index).text=“ ”（2）sum = sum + price *Text1(i).Text（3）List1.AddItem 合计： & Str(sum) & 元（4）List1.Clear（5）KeyAscii = 0五、 程序设计1Private Sub C1_Click() Dim i As I
7、nteger For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then Text1.Text = List1.List(i) End If Next iEnd SubPrivate Sub Form_Load() List1.AddItem Item1 List1.AddItem Item2 List1.AddItem Item3 List1.AddItem Item4End Sub2Private Sub C1_Click() Dim s As String s = 我的爱好是 If Ch1.Value = 1 The
8、n s = s + Ch1.Caption End If If Ch2.Value = 1 Then s = s + Ch2.Caption End If If Ch3.Value = 1 Then s = s + Ch3.Caption End If Print sEnd Sub3Private Sub HScroll1_Change()Timer1.Interval = HScroll1.ValueEnd SubPrivate Sub Timer1_Timer()If Label1.FontSize = 75 Then Label1.FontSize = Label1.FontSize +
9、 5Else Timer1.Enabled = FalseEnd If End Sub习题8一、 判断题12 345678910二、 选择题1C2B3C4B5B6D7A8C9D10C三、填空题1 下拉式 弹出式2 Click3 工具4 代码 Click5 相同 大于等于06 PopupMenu四、程序阅读题鼠标右击后出现的弹出菜单中点击菜单第一项后的显示结果如下图所示 五、程序填空题1) False2) Date$3) text1.forecolor=vbred4) text1.forecolor=vbblack5) PopupMenu m1六、程序设计题1. 代码如下：Private Sub
10、 ccol_Click(Index As Integer)For i = 0 To 2 ccol(i).Checked = FalseNextSelect Case Index Case 0 Form1.BackColor = vbRed Case 1 Form1.BackColor = vbGreen Case 2 Form1.BackColor = vbBlueEnd Selectccol(Index).Checked = TrueEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then Form1.PopupMenu colEnd Sub其中col为颜色菜单项的名称，ccol为其下层三个菜单项的名称，索引号分别为0、1、2。2. 代码如下：Private Sub col_Click()CommonDialog1.ShowColorText1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub exit_Click()EndEnd SubPrivate Sub font_Click()CommonDialog1.Flags =
