VB教材习题参考答案李杰清华大学出版社2Word下载.docx

1、H4B习题4参考答案4.2 单选题 BDCBD4.3 填空题1. MsgBox（是否删除？ , vbOkCancel + vbQuestion, 删除）2. The Length of 12345=53. 变量或表达式4. 15. loop4.4 程序设计题1. Private Sub Command1_Click（） If Text1.Text = asdf Then MsgBox 密码正确！Else密码错误, vbRetryCancel, 错误End If End Sub2. Dim n%, y%, i% n = Val（Text1.Text） If n 10 Or n= 0 Then x

2、1 = （-b + Sqr（d） / （2 * a） X2 = （-b - Sqr（d） / （2 * a） Print x1; X2 Print 没有实根 End If4. Private Sub Form_Click（） Dim i%, j%, s%, n%,q% n = InputBox（enter n: q = 0 s = 0 For j = 1 To i s = s + j Next j q = q + s Print q5. Dim i%, j%, n%, k% n = 0 For i = 1 To 3 For j = 1 To 3 For k = 1 To 3 Print i &

3、 j & k, n = n + 1 If n Mod 5 = 0 Then Print Next k Print Print n=; n6. 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,习题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 填空题1False2Caption30 ListCount-14Print List1.List（3）5Com

4、bo1.ReMoveItem 36LargeChange7Timer85009Shape10Borderstyle5.4 程序设计题1Dim op1, op2, result As SingleDim operator As IntegerPrivate Sub Command1_Click（Index As Integer）If Index = 0 And Index = 12 And Index = 15 Then op1 = CDbl（txt1.Text） operator = Index txt1.Text = If Index = 11 Then op2 = CDbl（txt1.Te

5、xt） Select Case operator Case 12 result = op1 + op2 Case 13 result = op1 - op2 Case 14 result = op1 * op2 Case 15 result = op1 / op2 End Select txt1.Text = CStr（result）op1 = 0op2 = 0result = 0txt1.Text = Private Sub Command3_Click（）End2 Private Sub chkBold_Click（）If chkBold.Value = vbChecked ThenTxt

6、1.FontBold = TrueTxt1.FontBold = FalsePrivate Sub chkUnderline_Click（）If chkUnderline.Value = vbChecked ThenTxt1.FontUnderline = TrueTxt1.FontUnderline = FalsePrivate Sub Opt18_Click（）Txt1.FontSize = 18Private Sub Opt22_Click（）Txt1.FontSize = 223 Private Sub Form_Load（）List1.AddItem 上海北京天津广东辽宁陕西河南深圳

7、四川重庆Private Sub List1_DblClick（）For i = 0 To 9If List1.ListIndex = i ThenList2.AddItem List1.List（i）List1.RemoveItem iNext i4Timer1.Enabled=TrueTimer1.Tag=Text1.Text*60Frame1.Caption=“现在开始倒计时”Private Sub Timer1_ Timer（）Timer1.Tag=Timer1.Tag-1If m0 ThenTimer1.Enabler=FalseMsgBox“预定的时间到了！”，0，“倒计时”Fram

8、e1.Caption=“请输入计时的分钟数：”Text1.Text=0Exit Subn1=Format（m Mod 60,“00”）n2=Format（m 60）Mod 60,“00：”）n3=Format（m 3600）,“00：Text1.Text=n3&n2&n1习题6参考答案6.1单选题1.C 2.C 3.B 4.B 5.B 6.D 7.B 8.B 9.A 10.A6.2 填空题1.Option Base 12.变体类型3.preserve （注意：教材上面写成perserve, 教材错误）4.Variant变体类型5.96.相同，索引号7. 1）.通过复制粘贴的方式创建控件数组 2

9、）.在设计时候添加多个同类型的类型控件，然后通过“属性”窗口将这些控件的名称改为相同，并把Index属性设为不同的下标值。 3）.使用Load语句动态添加控件数组元素8.sum+m; i-1; sum/i （注意：倒数第五行的小于符号”9.j=9或者UBound（a）;a（i） = a（j）； j = j - 16.3阅读程序题1.数组下标越界的错误提示 2.1 6 15 28 453.206.4程序设计题 Dim a（99） As Integer, i%, j%, flag%, temp%, k% For i = 0 To 99 Randomize 初始化随机数发生器 a（i） = Int（

10、999 - 0 + 1） * Rnd + 0） 按要求生成随机数放入数组 j=0 If a（i） Mod 3 = 0 And a（i） Mod 10 0 Then j = j + 1 Print a（i）; If j Mod 10 = 0 Then Print Print 满足条件的数的个数为： & j2. Picture1.Cls Dim i%, s$, c As String * 1, l%, k% Dim arr（1 To 26） As Integer s = Text1.Text l = Len（s） For i = 1 To l c = UCase（Mid（s, i, 1） If c

11、 = A And c Z arr（Asc（c） - 65 + 1） = arr（Asc（c） - 65 + 1） + 1 k = 0 For i = 1 To 26 If arr（i） Picture1.Print Chr（i + 64） &= arr（i）; k = k + 1 If k Mod 6 = 0 Then Picture1.Print3.Private Sub Command1_Click（） Dim a（1 To 10） As Integer, i%, j%, t% Randomize Cls 排序前： For i = 1 To 10 a（i） = Int（Rnd * 100

12、+ 1） k = i For j = i To 10 If a（k） a（j） Then k = j If k max Then max = arr（i, j） x = i y = j If i = j Or i + j = 3 Then sum = sum + arr（i, j）矩阵最大值为 max &下标为： x &, y两条对角线元素之和为： sum将矩阵转置For i = 1 To 3 For j = 0 To i - 1 t = arr（i, j） arr（i, j） = arr（j, i） arr（j, i） = t Print arr（i, j）; Print vbCrLf Di

13、m a（）, i%, k%, x%, m% a = Array（1, 23, 36, 78, 90） m = UBound（a） x = Val（InputBox（请输入一个整数, 输入） For i = 0 To m If x a（i） Then Exit For ReDim Preserve a（m + 1） For k = m To i Step -1 a（k + 1） = a（k） a（i） = x For i = 0 To m + 1 Print a（i）习题7参考答案7.1单选题1.B 2.D 3.D 4.无 5.A6.D 7.B 8.B7.2填空题1.Exit sub exit

14、function2.函数过程名（实参） Call 函数过程名（实参）3.过程名（实参） Call 过程名（实参）4.传地址 传值5.用来接收传送给过程的数据6.m mod i=0 isWs=True isWs（i）=True7.Exit For b（j - 1） = b（j） UBound（a） 或者 n-17.3阅读程序题1. （注意：print - 中的单引号应该改成双引号） 1 0 82.a=35,b=237.4程序设计题Private Function isprime（m As Integer） As Boolean Dim i% isprime = True For i = 2 To

15、 m - 1 If m Mod i = 0 Then isprime = FalseEnd Function Dim n%, a%, b% a = isprime（3） For n = 5 To 1000 Step 2 b = isprime（n） If （a And b） Then Print n - 2, n a = b Next nPrivate Function power（x%, y%） Dim j%, f% f = 1 For j = 1 To y f = f * x power = fPrivate Function sum（n%, k%） Dim i%, total% tota

16、l = total + power（i, k） sum = total Dim n%, k%, s As Single n = Val（InputBox（请输入正整数n： k = Val（InputBox（请输入正整数k： s = sum（n, k） Print s 3.Private Function sum（m%） Dim i%, s% For i = 1 To m - 1 If m Mod i = 0 Then s = s + i sum = sDim i%, j%, n%For i = 1 To 1000 n = sum（i） If n = i Then Print i, n For

17、j = i + 1 To 1000 If （i = sum（j） And j = n） Then Print i, jPrivate Sub f（m%） Dim a% If （m 10 = 0） Then a = m Mod 10 Print a f （m 10） Dim n%请输入一个整数： Call f（n）Private Function hw（str As String） As Boolean Dim i As Integer hw = True For i = 1 To Len（str） 2 If Mid（str, i, 1） Mid（str, Len（str） + 1 - i, 1

18、） Then hw = False Exit Function Dim str As String str = InputBox（请输入一个字符串： If （hw（str） Then Print str &是回文!不是回文!习题8参考答案8.1 思考题略8.2 选择题12345678910CBAD8.3程序设计题习题9参考答案9.1 思考题（略）9.2 单选题1 C 2 D 3 C 4 C 5 C 6 C 7 C 8 C 9.3 填空题1. 下拉式菜单和弹出式菜单2. Toolbar控件和ImageList控件3. ButtonClick4. MDIChild5. 1个9.4 程序设计题Form1窗体事件代码Picture1.Picture = LoadPicture（d:bao9-