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

1、二、根据要求写出表达式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, #.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、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）2界面设计如图：设置计时器的interval属性值为1000，Timer1的Timer事件代码如下：Private Sub Timer1_Timer（）Text1.Text = Time第4章1-5 DBCCA 6 C1.输入 字符型 val2.Msgb

3、ox “是否显示数据”,vbOkCancle+vbQuestion,”提示”3.3445* * *三、编程题第5章 1-5 DADCDB二、程序填空1Inputbox 、 is6-x-5 x123Rnd 、 1 、 x mod 5=04Val（text1.text） 、 x mod 2=0 、 奇数 、 End If1代码如下：Private Sub form_Click（） Dim x As Single x = Val（InputBox（请输入任意一个实数：） If x 0 Then Print 概数是负数 ElseIf x = 0 Then概数是零 Else概数是正数 End If2代码

4、如下： Dim x As Single, y As Single x = val（InputBox（请输入x的值: y = x 4 + 10 ElseIf x 0 Case Is a（1） Thenmaxa = a（i）: m = iEnd IfPrint a（i）;Print maxa= maxa;下标为 m3. 运行结果界面如下 Dim c As String, 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 = And c j

5、* 10 - 1 And a（i） j * 10 + 10 Then b（j） = b（j） + 1 Next输出 If i Mod 10 = 0 Then Print 一行输出10个For j = 1 To 9范围 （j * 10） &到 （j * 10 + 9） &的数有 b（j） &个。第8章1-5：ADDBD 6-10：DCCAD11-15：CADBD1. 从列表框中删除指定项目2. 下拉式列表框3. Interval4. Timer5. Picture三、程序填空1. List1_Dblclick、List1.Text2. 1000、true、Time第9章一 、选择题1-5 ACA

6、CB 6-8 BCC1.Byval Byref Byref2.窗体/模块级 全局级 局部变量 窗体/模块级 全局级3.在调用函数的过程中出现的直接或间接调用该函数本身的现象4.b 6.11 75，7.A=1 B=1X=2 Y=3A=2 B=3三、四第10章1-4：DBDB1. 属性设置区、编辑区、菜单项显示区2. 打开、另存为、颜色、字体3. PopupMenu4. CommonDialog1.Action=1、CommonDialog1.ShowSave第11章1-5DCABB 6-10BDD BA 11-15DBCAC二填空题1.Open、 close2.append3.write 、 p

7、rint4.put 、get5.EOF（1） 、 whole三编程题界面设计如下：Dim a（1 To 4, 1 To 5） As Single, s（1 To 5） As SingleStatic j As IntegerFor i = 0 To 3a（i + 1, j + 1） = Text2（i）Text1.Text = Text1.Text & a（i + 1, j + 1） Chr（13） & Chr（10）Text2（i）.Text = j = j + 1Text2（0）.SetFocusPrivate Sub Command2_Click（） For k = 1 To 4 s（i） = s（i） + a（k, i） Next k Text3（i - 1）.Text = s（i） / 4Private Sub Command3_Click（）Open d:result.dat For Output As #1 For j = 1 To 4 Write #1, a（j, i）; Write #1, 平均分 s（i）/4Close第12章一、简答题 略。二、编程题数据表“学生表”结构如下：字段名类型长度学号Text10姓名20性别2专业30籍贯民族