《Visual Basic语言程序设计教程》课后习题答案.docx

1、Visual Basic语言程序设计教程课后习题答案第1章一、选择题1-5 CCDBA 6-10ABCDB二、填空题1.bas2.工具栏3属性窗口4.工具栏5.设计状态，运行状态，中断状态三、简答题略四、编程题控 件属 性属 性 值FormNameForm1TextBoxNameText1Text1空白CommandButtonNameCommand1Caption确定Private Sub Command1_Click()Command1.Caption = Text1.TextEnd Sub第2章一、选择题1-5 CBDDC 6-10 AAAAC11-14 BBBD二、填空题1. Text

2、1.Text = Hello!或Text1= Hello!2Width 、Height3Ctrl4. ABCD、Visual Basic5. 123321第3章一、选择题1-5ABDCA 6-10CBCB C 11-15BBBCC二、根据要求写出表达式1Int(100*Rnd+1)2x10 And x503x mod 4=0 Or x mod 13=04Chr(Int(25*Rnd+65)三、写出下列函数的值1Int(3.14159)=-42Sqr(Sqr(16)=23Fix(3.1415926)=-34Int(Abs(99100)/2)=05Sgn(7*3+2)=16Format(2.3,

3、#.000)=2.3007Left(Hello,2)=”He”8Val(16 Year)=169Str(459.65)=”-459.65”四、将下列数学表达式改写为等价的VB表达式1 (b2-sqr(4*a*c-b2)/(4*a)2 sqr(sin(3.14/18)2+cos(3.14/9)2)+153 abs(a+b)2-4*a*c)4 a2+exp(4)+sqr(abs(a+exp(1)五、编程题1界面设计如图：文本框text1的change事件代码如下：Private Sub Text1_Change()Text2.Text = LCase(Text1.Text)End Sub2界面设计

4、如图：设置计时器的interval属性值为1000，Timer1的Timer事件代码如下：Private Sub Timer1_Timer()Text1.Text = TimeEnd Sub第4章一、选择题1-5 DBCCA 6 C二、填空题1.输入 字符型 val2.Msgbox “是否显示数据”,vbOkCancle+vbQuestion,”提示”3.3445* * * *三、编程题略第5章 一、选择题1-5 DADCDB二、程序填空1Inputbox 、 is6-x-5 x123Rnd 、 1 、 x mod 5=04Val(text1.text) 、 x mod 2=0 、 奇数 、

5、End If三、编程题1代码如下：Private Sub form_Click() Dim x As Single x = Val(InputBox(请输入任意一个实数：) If x 0 Then Print 概数是负数 ElseIf x = 0 Then Print 概数是零 Else Print 概数是正数 End IfEnd Sub2代码如下：Private Sub form_Click() Dim x As Single, y As Single x = val(InputBox(请输入x的值:) If x 0 Then y = x 4 + 10 ElseIf x 10 Then y

6、= x 2 - 10 ElseIf x 20 Then y = 5 * x + 8 Else y = x / 2 + 1 End If MsgBox 当x的值为： & x & 时，函数值y为： & yEnd Sub3运行界面如下：代码如下：Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 100 Then y = x ElseIf x 200 Then y = x * 0.95 ElseIf x 300 Then y = x * 0.9 Else y = x * 0.8 End

7、If Text2.Text = yEnd Sub4运行界面如下：代码如下：Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 0 a = a + 1 Case Is a(1) Thenmaxa = a(i): m = iEnd IfNext iFor i = 1 To 10Print a(i);Next iPrint maxa= & maxa; 下标为 & mEnd Sub3. 运行结果界面如下Private Sub Command1_Click() Dim c As String

8、, x%, a(1 To 26) As Integer Picture1.Cls For i = 1 To Len(Text1.Text) c = UCase(Mid(Text1.Text, i, 1) If c = A And c j * 10 - 1 And a(i) j * 10 + 10 Then b(j) = b(j) + 1 NextNext输出For i = 1 To 50 Print a(i); If i Mod 10 = 0 Then Print 一行输出10个NextFor j = 1 To 9 Print 范围 & (j * 10) & 到 & (j * 10 + 9)

9、& 的数有 & b(j) & 个。NextEnd Sub第8章一、选择题1-5：ADDBD 6-10：DCCAD11-15：CADBD二、填空题1. 从列表框中删除指定项目2. 下拉式列表框3. Interval4. Timer5. Picture三、程序填空1. List1_Dblclick、List1.Text2. 1000、true、Time第9章一 、选择题1-5 ACACB 6-8 BCC二、填空题1.Byval Byref Byref2.窗体/模块级 全局级 局部变量 窗体/模块级 全局级3.在调用函数的过程中出现的直接或间接调用该函数本身的现象4.b 6.11 75，7.A=1

10、B=1X=2 Y=3A=2 B=3456三、四略第10章一、选择题1-4：DBDB二、填空题1. 属性设置区、编辑区、菜单项显示区2. 打开、另存为、颜色、字体3. PopupMenu4. CommonDialog1.Action=1、CommonDialog1.ShowSave第11章一、选择题1-5DCABB 6-10BDD BA 11-15DBCAC二填空题1.Open、 close2.append3.write 、 print4.put 、get5.EOF（1） 、 whole三编程题界面设计如下：代码如下：Dim a(1 To 4, 1 To 5) As Single, s(1 To

11、 5) As SinglePrivate Sub Command1_Click()Static j As IntegerFor i = 0 To 3a(i + 1, j + 1) = Text2(i)Text1.Text = Text1.Text & & a(i + 1, j + 1)Next iText1.Text = Text1.Text & Chr(13) & Chr(10)For i = 0 To 3Text2(i).Text = Next ij = j + 1Text2(0).SetFocusEnd SubPrivate Sub Command2_Click()For i = 1 T

12、o 5 For k = 1 To 4 s(i) = s(i) + a(k, i) Next k Text3(i - 1).Text = s(i) / 4Next iEnd SubPrivate Sub Command3_Click()Open d:result.dat For Output As #1For i = 1 To 5 For j = 1 To 4 Write #1, a(j, i); Next j Write #1, 平均分; s(i)/4Next iCloseEnd Sub第12章一、简答题 略。二、编程题数据表“学生表”结构如下：字段名类型长度学号Text10姓名Text20性别Text2专业Text30籍贯Text30民族Text50