logo资料库

VB程序设计教程 第四版 蒋加伏 北京邮电大学出版社 习题答案.doc

发布时间：2022-05-30 发布人：admin 分类：说明书 资料大小：0.09M 资料格式：doc 举报 版权申诉
第1页 / 共14页
第2页 / 共14页
第3页 / 共14页
第4页 / 共14页
第5页 / 共14页
第6页 / 共14页
第7页 / 共14页
第8页 / 共14页
资料共14页，剩余部分请下载后查看
    vb 课后习题答案 习题参考答案 填空题 简答题 简述 VB 的特点。 第一章 一、 1、对象 事件驱动 2、编译运行模式 解释运行模式 二、 1、 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述 VB 的安装过程。 答：①向光驱中放入 VB 安装光盘； ②计算机将运行自动安装程序，若没有，执行 VB 目录下的 Setup.exe； ③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、 答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中 如何启动 VB。 文版”菜单项并单击； ②双击桌面上的 VB6.0 快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动 VB； BCBBC BBAAB CDDC 第二章 习题参考答案 一、选择题： 1-10、 DCACD 11-20、BADCA 21-29、AACBB 二、填空题 1． 窗体、控件 2． 属性值 3． 属性窗口设置、代码窗口设置 4． 事件过程 5． 对象名、下划线、事件名 6． Form_Click 第三章 习题参考答案 一、选择题
    4、B 2、C 3、A 1、B 二、填空题 1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日 期型、对象型、变体型。String、Byte、Integer、Long、Single、Double、Currency、Boolean 5、A 6、C 7、C 、Date、Object、Variant 2、 双引号(英文)、# 3、 ASCII、1、2 4、 public、通用、Dim、Static、Private、Static 5、 &、+、+ 6、 Now()、Time、日期型 三、解答题 1、(3) 3、（1）常量（关键字）（2）字符型常量 （3）逻辑型常量 （4）变量 （5） 2、(1 ) 字符串常量 （6）变量 （7）字符串常量 （8）变量 （9）日期型常量 （题目应是#11/16/1999#） （10）数值型常量（单精度） 4、31 5、（1）(1+y/x)/(1-y/x) （3）sqr(abs(a*b-c^3)) 6、 7、（1）13 （2）17 （2）x^3+3*x*y/(2-y) （4）sqr(s*(s-a)*(s-b)*(s-c)) （3）#1999-11-12# （4）zxy123ABC 8、（1）19 （2）8.16666666666667 （3）5．25 9、（1）-4 （2）2 . 82842712474619 （3）-3 （4）49 （5）”hello” （6） （4）2 He 7）16 （8） “-459.65” （9）5 10、（4） 11、（2） 12、（4） 第四章 习题参考答案 一、选择题： 1—7: DAABBCD 二、填空题 1． 500.00% 2． 将字号扩大为原来的二倍 3． B 三、编程题（略） 1．文本框、标签和命令按钮的名称分别为 text1、label1、command1 Private Sub Command1_Click() Label1.caption=text1.text Command1.caption=text1.text End Sub
    2．单价、数量、折扣和应付款对应的文本框的名称分别为：text1、text2、text3 和 text4，计算和清除命令按钮的名称分别为：command1 和 command2。 Private Sub Command1_Click() Text4=val(text1)*val(text2)*val(text3) End Sub Private Sub Command2_Click() Text1=”” : Text2=””: Text3=””: Text4=”” End Sub 3．文本框、“转大写”命令按钮和“转大写”命令按钮的名称分别为 text1、 command1 和 command2 Private Sub Command1_Click() Text1=Ucase(text1) End Sub Private Sub Command2_Click() Text1=Lcase(text1) End Sub 2 3 4．160 5．9 8．B 第五章 习题参考答案 一、选择题： 1—11: CAABBABBBCC 二、填空题 1．(3) 6．78 9．iSum 三、编程题 1．Private Sub Form_Click() 3 2 2． 1 7．x<=5 (或 x<6 或 x<7) iSum+j 3．2 1250 Dim i%,s% S=0 For i = 101 To 200 step 2 If i mod 3<>0 then Print i S=s+i End If Next i Print s End Sub 2．Private Sub Form_Click() Dim n%,s& S=1:n=0
    While s<=400000 N=n+1 S=s*n Wend If s>400000 Then n=n-1 Print n End Sub 3．Private Sub Form_Click() Dim imin%,imax%,i%,R% Imin=100:imax=20 For i=1 to 20 R=Int(Rnd*51+50) If R>imax Then imax=R If RMax) If OP1(0).Value=True Then P1.Print “选择了椭圆形” If OP1(1).Value=True Then P1.Print “选择了圆形”
    If OP1(2).Value=True Then P1.Print “选择了正方形” End Sub 2．统计按钮名为 Command1，输入框名为 text1，输出框为 text2(MultLine 设 为 True) Private Sub Command1_click() Dim X(1 to 26) AS Integer,I As Integer Dim S As String,L As Integer L=Len(Text1.text) For i=1 To L S=Mid(Text1,I,1) S=Ucase(S) If S >= "A" And S <= "Z" Then x(Asc(S) - 65 + 1) = x(Asc(S) - 65 + 1) + 1 End If Next i For i=1 To L Text2=text2 & Chr(64+i) & “=” & x(i) & “ If I Mod 7=0 then Text2=text2 & chr(13)+chr(10) “ Next i End Sub 3．设学生成绩的平均分已在 Mark(1)至 Mark(10)中,学生姓名在 name(1)至 name(10)中。 Private Sub Command1_click() Dim I%,J%,T%,S$ For i=1 To 9 For j=i+1 To 10 If Mark(i)
    Ubound(b) 1—10: DCBBDDDBCB 二、填空题 1．a 2．Key=a(i) 三、编程题 1．子过程 Sub P1(x As Single, esp As Single) n=n-1 Index=-1 Dim p!,S!,F!,i% P=1:S=1:i=1:F=x Do P=P*i S=S+F/p Loop Until Abs(F/p)
    Case 1 Case 2 Case 3 Case 4 Case 5 Case 6 WeekDay=”星期日” WeekDay=”星期一” WeekDay=”星期二” WeekDay=”星期三” WeekDay=”星期四” WeekDay=”星期五” WeekDay=”星期六” End Select End Function 5．Function Rand30(ByVal X As`Integer) As Integer Randomize Rand30=Int(Rnd*X+1) End Function Sub Command1_Click() For i=1 To 30 Print Rand30(100) Next i End Sub 6．Function F1(ByVal X As`Single, ByVal Y As`Single) As Integer If X>Y Then F1=X Else F1=Y End If End Function 7． Function GDBH(ByVal x%) As String Dim i% For i = 3 To x - 3 Step 2 If isp(i) And isp(x - i) Then GDBH = i & "+" & (x - i) & "=" & x Exit Function End If Next End Function
    Function isp(y%) As Boolean i = 2: k = Int(y / 2) Do While i <= k If y Mod i = 0 Then Exit Do i = i + 1 Loop If i > k Then isp = True Else isp = False End If End Function Private Sub Form_Click() For i = 6 To 40 Step 2 Print GDBH(i) Next i End Sub 8．Function isQO(ByVal x As Integer) As String If x Mod 2 =0 Then isQO=”偶数” Else isQO=”奇数” End If End Function 9．Function F1(ByVal x As Integer) As Boolean If x Mod 17 =0 and x Mod 37 =0Then F1=True Else F1=False End If End Function Private Sub Form_Click() For i = 1000 To 2000 If F1(i) Then Print i End if Next i End Sub
    分享到：
    赞 收藏

    相关推荐

    资料库

    开发技术

    共收录19306份资料，累计14个分类，关注成员有19位，主要包括：Actionscript,Javascript,PHP,VB,Perl,Delphi,Python,C#,C,Java,C++,Web开发,硬件开发,其它

    热门标签

    Actionscript Javascript PHP VB Perl Delphi Python C# C Java C++ Web开发 硬件开发 其它

    最新资料