1、VB语言程序设计习题答案VB语言程序设计习 题 参 考 答 案第1章习题一、单选题1D 2B 3C 4A 5C 6. A7A 8B 9C 10(1)A (2)B二、多选题1ACDE 2BCDE 3CD 4. CE三、填空题1事件驱动 2解释，编译 3设计，运行，中断4. 属性，方法，事件 5. Command2_Click 6. 中央，代码7MyForm.frm 8. (1)Cmd1_Click() (2)Print VB语言程序设计编程及上机调试1. 按要求设置窗体属性2在窗体上建立一个标签Label1。程序代码如下：Private Sub Form_Click() Label1.Capti
2、on = 你单击了窗体End SubPrivate Sub Form_DblClick() Label1.Caption = 你双击了窗体End Sub3 在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * xEnd Sub第2章习题一、单选题1D，D 2A，C 3A 4B 5B 6B7C 8D 9B 10B 11A 12A13B 14A 15B 16A
3、17B二、多选题1BD 2CD 3AC 4. AD三、填空题1(1) Sin(50*3.14159/180) (2) (2+x*y)/(2y*y) (3) a*a3*a*b/(3+a) (4) x(3/8)+Sqr(y*y+4*a*a/(x+y3)2Int(50+6*Rnd)3(1)138 (2)3 (3)214 (4) inchina (5)70 (6) 45 (7)0 4. 系统管理数据库编程及上机调试13题：按要求完成操作练习。4 Private Sub Command1_Click() 最大化按钮 Form1.WindowState = 2 最大化End SubPrivate Sub
4、Command2_Click() 还原按钮 Form1.WindowState = 0 还原End SubPrivate Sub Command3_Click() 最小化按钮 Form1.WindowState = 1 最小化End Sub5在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。 Private Sub Command1_Click() Dim x As Single Dim y As Single x = Val(Text1.Text) y = Val(Text2.Text) Text3.Tex
5、t = x * x + y * yEnd Sub6. 在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。 Private Sub Command1_Click() Dim x As String x = Left(Text1.Text, 1) + Right(Text1.Text, 1) Text2.Text = xEnd Sub第3章习题一、单选题1C 2B 3D 4D 5B 6C7B 8D 9D 10A 11A 12C13C 14B 15(1)A (2)C 16A 17B18(1)D (2)B (3)C 19D二、多选题1AC 2AC
6、3ABCF三、填空题1. $000,124 2Label1.Caption=a*b= 3Height，Width42 5Text1.SetFocus6Multiline, ScrollBars, 2 7编程技术，程序设计8Private Sub Text2_Change() 当文本框Text2中的文本内容发生变动时，执行该事件过程Label1.Caption=Text1.Text 把文本框Text1中的文本内容作为标签Label1的标题End SubPrivate Sub Text1_GotFocus() 当文本框Text1获得焦点时，执行该事件过程Text1.SelStart = 0 选定文
7、本框Text1中的所有文本内容Text1.SelLength=Len(Text1.Text)End Sub编程及上机调试1在窗体上建立一个文本框Text1(输入n值)、三个标签Label1(第一个随机数)、Label2(第二个随机数)和Label3(第三个随机数)，以及一个命令按钮Command1。Private Sub Command1_Click() n = Val(Text1.Text) Randomize x = Int(1 + n * Rnd) Label1.Caption = 第一个随机数 + Str(x) x = Int(1 + n * Rnd) Label2.Caption =
8、 第二个随机数 + Str(x) x = Int(1 + n * Rnd) Label3.Caption = 第三个随机数 + Str(x)End Sub2在窗体上建立了四个文本框Text1、Text2、Text3和Text4，以及一个命令按钮Command1(“交换”)和Command2(“合并”)。Private Sub Command1_Click() “交换” t = Text1.Text Text1.Text = Text2.Text Text2.Text = Text3.Text Text3.Text = tEnd SubPrivate Sub Command2_Click() “
9、合并” t = Text1.Text + Text2.Text + Text3.Text Text4.Text = tEnd Sub3. (1) Rnd * 9000 + 1000 (2) Str(x) (3) Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1)4. Private Sub Command1_Click() 往左 Text1.Left = 0End SubPrivate Sub Command2_Click() 往右 Text1.Left = Form1.Width - Text1.WidthEnd SubPrivate Sub Command3_
10、Click() 居中 Text1.Left = (Form1.Width - Text1.Width) / 2End Sub5. Private Sub Cmd1_Click() Lab1.Visible = True Lab1.Caption = 您已下达显示命令End SubPrivate Sub Form_Click() Cmd1.Visible = TrueEnd Sub6. Private Sub Form_KeyPress(KeyAscii As Integer) Show Print 输入字符：; Chr(KeyAscii), ASCII码为; KeyAsciiEnd SubPr
11、ivate Sub Form_DblClick() ClsEnd Sub 7. 产生这三个消息框的相应语句是： 产生第1个消息框：x = MsgBox(在这里显示提示信息, 4 + 0, 请确认) 产生第2个消息框：x = MsgBox(在这里显示 + Chr(13) + 提示信息,3 + 0,请确认) 产生第3个消息框：x = MsgBox(在这里显示+Chr(13)+提示信息,2 + 16 + 0,请确认)第4章习题一、单选题1C 2A 3C 4C 5. B 6. A 7D 8B 9B 10(1)D (2)A (3)B二、多选题1ABCFGHJ 2BE 3CD 4. CDE 5. AE三、
12、填空题1(S And (A=18 And A =1.65) Or (Not S And (A=16 And Age=1.60)2. 60000 3. (1) 0 To 9 (2) a To z,A To Z (3) Else4(1)6 (2)-2 (3)2 5 Select Case x Case Is 20 Case Is = 0 y = 2 y = 4 Case Is = 30 Case Is 10 y = 3 y = 0 Case Else Case Is 100) And (x Mod 5=0) (2) 0 (3) Len(Text1.Text) (4) Text1.SelText编程
13、及上机调试1. 在窗体上建立两个文本框Text1(输入数)及Text2(显示结果)，一个命令按钮Command1(“判断”)。Private Sub Command1_Click() “判断” x = Val(Text1.Text) If x Mod 2 = 0 Then Text2.Text = 偶数 Else消息 Text2.Text = 奇数 End IfEnd Sub2窗体上建立了一个文本框Text1，用于显示结果。Private Sub Form_Load() x = Val(InputBox(请输入星期几(06) Select Case x Case Is = 0 Text1.Te
14、xt = 星期日(Sunday) Case Is = 1 Text1.Text = 星期一(Monday) Case Is = 2 Text1.Text = 星期二(Tuesday) Case Is = 3 Text1.Text = 星期三(Wednesday) Case Is = 4 Text1.Text = 星期四(Thursday) Case Is = 5 Text1.Text = 星期五(Friday) Case Is = 6 Text1.Text = 星期六(Saturday) Case Else Text1.Text = 输入错误 End SelectEnd Sub3窗体上建立了一
15、个文本框Text1(“输入口令”)和一个命令按钮Command1(“检查”)。Private Sub Command1_Click() “检查” x = Text1.Text If x = 12345678 Then MsgBox (欢迎你用机!) Else MsgBox (对不起，口令错) End If Text1.Text = Text1.SetFocusEnd SubPrivate Sub Form_Load() Text1.Text = Text1.MaxLength = 8 Text1.PasswordChar = *End Sub4窗体上建立了两个文本框Text1(输入字符串)及T
16、ext2(转换结果)，一个命令按钮Command1(“清除”)。Private Sub Command1_Click() “清除” Text1.Text = Text2.Text = Text1.SetFocusEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Dim s As String * 1 s = Chr(KeyAscii) Select Case s Case A To Z s = LCase(s) Case a To z s = UCase(s) Case Else s = * End Select Text2.Text
17、 = Text2.Text + sEnd Sub5 分别选择”红”、 ”绿”、 ”蓝”复选框后，单击命令按钮Command1时，通过RGB函数调配的颜色作为一个标签的背景色（BackColor）。Private Sub Command1_Click() r = 0: g = 0: b = 0 If Check1.Value = 1 Then ”红”复选框 r = 255 End If If Check2.Value = 1 Then ”绿”复选框 g = 255 End If If Check3.Value = 1 Then ”蓝”复选框 b = 255 End If Label1.BackC
18、olor = RGB(r, g, b)End Sub6程序代码如下：Private Sub Form_Load() LabClk.Caption = 0 LabClk.Alignment = 1 LabClk.BorderStyle = 1 LabClk.FontSize = 22 LabClk.FontName = 黑体 TimClk.Interval = 1000End Sub Private Sub TimClk_Timer() LabClk.Caption = Val(LabClk.Caption) + 1End Sub7 (1) Chr(KeyAscii) (2) ElseIf Ch
19、r(KeyAscii) (3) CheC = CheC - 1 (4) CheC (5) Is 0 或 Else第5章习题一、单选题1A 2. B 3(1)C，(2)B 4B 5C 6A7(1)B，(2)C，(3)B 8. B 9. B 10. B二、填空题1(1)4次，n=13 (2)3次，n=8 (3)3次，n=27 (4)3次，n=10 (5)1次，n=122(1) Len(s) (2) Mid(s, k, 1) (3) c + t (4) Text2.Text3(1) t = 1 (2) n = n + 1 (3) t = t * 24. 0 5. Text 6. 下拉列表框 7. A
20、ddItem ，RemoveItem或Clear8(1)ItemA (2) ItemD (3) ItemD (4) ItemA9(1) Mid(x, p + 3) (2) p + 4 (3) InStr(p, x, 123)编程及上机调试1. 和数为：1.21。程序代码如下：Private Sub Form_Load() Show s = 0 For k = 1 To 100 s = s + 1 / (1 + k * 4) Next k Print sEnd Sub2. 程序代码如下：Private Sub Form_Load() Dim i As Integer, a As Integer,
21、 b As Integer, c As Integer Show For i = 100 To 999 a = Int(i / 100) b = Int(i - 100 * a) / 10) c = i - 100 * a - 10 * b If a * a * a + b * b * b + c * c * c = i Then Print i End If Next iEnd Sub3. 在窗体上建立一个文本框Text1(初始值)、一个列表框List1(显示结果)和一个命令按钮Comd1(“查找”)。Private Sub Comd1_Click() “查找” Dim n As Integ
22、er n = Val(Text1.Text)List1.Clear:k = 0 Do While k = A And t = 0.00001 Print a; 的平方根为; xn1End Sub第6章习题一、单选题1. D 2. A 3(1)B，(2)B 4C 5. C 6. A7. (1)C (2)B (3)A (4)B (5)D 二、多选题1. AD 2. CD三、填空题1. 二, 12; 1, 3; -1, 2 2. 0 1 2 3 2 2 2 2 2 1 0 1 4 4 4 43. Name, Index4. (1) 0 To Index (2)Val(Text1(k).Text)5.
23、 (1) i+1 To k (2) s(i) s(j) (3) s(i)s(i-1) (4) h = h+1 6. (1) ReDim a(1 To n + 1) (2) a(K + 1) = a(K) (3) a(p) 编程及上机调试1. 程序代码如下： Private Sub Form_Load() Show Dim a(100) As Single n = Val(InputBox(输入个数n) Print 处理前数据 : For k = 1 To n a(k) = Val(InputBox(请输入第 & k & 个数) Print a(k); Next k Print M = Int(
24、n / 2) For k = 1 To M h = n - k + 1 t = a(h):a(h) = a(k):a(k) = t Next k Print 处理的结果 : For k = 1 To n Print a(k); Next kEnd Sub2. 程序代码如下： Private Sub Form_Load() Dim a(6, 6) As Integer Show For i = 1 To 6 For j = 1 To 6 Select Case i Case Is j a(i, j) = 2 Case Is = j a(i, j) = 0 End Select Print a(i
25、, j); Next j Print Next i For i = 1 To 6 t = a(1, i):a(1, i) = a(6, i):a(6, i) = t Next i Print: Print For i = 1 To 6 For j = 1 To 6 Print a(i, j); Next j Print Next iEnd Sub3在窗体上建立两个列表框List1(处理前数据)和List2(处理后数据)，以及标签Label1。程序代码如下： Private Sub Form_Load() Dim a(100) As Integer, b(100) As Integer Randomize n = 100 For i = 1 To n 输入数组a的n个元素 x = Int(20 * Rnd) List1.AddItem x a(i) = x Next i k = 0 For i = 1 To n 删除零元素 If a(i) 0 Then k = k + 1
