ImageVerifierCode 换一换
格式:DOCX , 页数:50 ,大小:35KB ,
资源ID:26404621      下载积分:10 金币
快捷下载
登录下载
邮箱/手机:
温馨提示:
快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。 如填写123,账号就是123,密码也是123。
特别说明:
请自助下载,系统不会自动发送文件的哦; 如果您已付费,想二次下载,请登录后访问:我的下载记录
支付方式: 支付宝    微信支付   
验证码:   换一换

加入VIP,免费下载
 

温馨提示:由于个人手机设置不同,如果发现不能下载,请复制以下地址【https://www.bdocx.com/down/26404621.html】到电脑端继续下载(重复下载不扣费)。

已注册用户请登录:
账号:
密码:
验证码:   换一换
  忘记密码?
三方登录: 微信登录   QQ登录  

下载须知

1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。
2: 试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。
3: 文件的所有权益归上传用户所有。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 本站仅提供交流平台,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

版权提示 | 免责声明

本文(《Visual Basic程序设计基础》课后习题参考答案.docx)为本站会员(b****3)主动上传,冰豆网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知冰豆网(发送邮件至service@bdocx.com或直接QQ联系客服),我们立即给予删除!

《Visual Basic程序设计基础》课后习题参考答案.docx

1、Visual Basic程序设计基础课后习题参考答案第1章 Visual Basic 6.0程序设计概述一、判断题1 23 说明:同类控件(如两个标签)相互重叠,设计时可以设置“置前”、“置后”属性。4 5 6 7 8 9 10 11 1213 14 15 16 17 18 19 20二、选择题1. C 2. B 3D 4C 5B 6A 7D 8A 9B 10A 11C 12D三、填空题1对象、事件 2属性、方法、事件 3控件、屏幕(Screen)4对象 5Left、Top 6属性、.=7网格 8F orm19Load或Initialize或Resize或Activate(自动执行的先后顺序也

2、按此排列)10Activate、Deactivate四、程序设计题程序1界面设计参看图10-1、10-2以及表10-1。表10-1 实例2各控件的主要属性设置控件属性(属性值)属性(属性值)标签控件1Name(Label1)Caption(我的第一个VB程序)标签控件2Name(Label2)Caption(请输入你的姓名)FontUnderLine(True)FontItalic(True)命令按钮1Name(Command1)Caption(确定(&O)命令按钮2Name(Command2)Caption(结束(&X)过程设计如下:Private sub Form_Click() Comm

3、and2.Enabled = FalseEen SubPrivate Sub Command1_Click()Label2.Visible = False Label1.Caption = Text1.Text + : 欢迎使用 + Label1.CaptionText1.Visible = FalseCommand1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()EndEnd Sub程序2界面设计略,过程设计如下:Private Sub Command1_Click() 字体变大 Form

4、1.FontSize = Form1.FontSize + 3 Form1.Cls: Print 欢迎使用VBEnd SubPrivate Sub Command2_Click() 字体变小 Form1.FontSize = Form1.FontSize - 3 Form1.Cls: Print 欢迎使用VBEnd SubPrivate Sub Command3_Click() 字体加粗 Form1.FontBold = True Form1.Cls: Print 欢迎使用VBEnd SubPrivate Sub Command4_Click() 字体不加粗 Form1.FontBold =

5、False Form1.Cls: Print 欢迎使用VBEnd Sub运行时,不得连续、过多次单击“字体变小”按钮,因为当FontSize属性值小于0会产生适时错误。程序3界面设计略,过程设计如下(窗体Height值的计量包括标题、边框,而ScaleHeight值仅与窗体有效绘图区域的高度有关):Private Sub Form_Load() Text1.Text = Visual Basic 程序设计End SubPrivate Sub Form_Resize() Text1.Top = 0: Text1.Left = 0Text1.Width=Form1.ScaleWidth/2 用 F

6、orm1.ScaleWidth效果优于用Form1. WidthText1.Height=Form1.ScaleHeight/2 用 Form1.ScaleHeight优于用Form1. Height Command1.Top = Form1.ScaleHeight - Command1.Height Command1.Left = Form1.ScaleWidth - Command1.WidthEnd Sub第2章 程序设计基础一、判断题12345678910二、选择题1B 2D 3A 4C5C 6B 7A 8D 9. C 10A三、填空题1String 24 3aaa 4145 56 6

7、3 718 8False9(x Mod 10) * 10 + x 101010 + Int( Rnd * 90 ) 11a * b Mod c12Log(x)+Sin(3.141593/6) 13Const PI=3.141592614日期 15Int(x)+1四、程序设计题程序1界面设计略,过程设计如下:方法一、用文本框控件输入圆的半径Private Sub Command1_Click() Dim x As Single x = Text1.Text Label1.Caption = x * x * 3.141593End Sub方法二、用InputBox函数输入圆的半径Private S

8、ub Command1_Click() Dim x As Single 若要求计算结果具有15位有效位数,声明x为Double类型 x = InputBox(r=,输入圆的半径) Label1.Caption = x * x * 3.141593End Sub程序2略。第3章 结构化程序设计与数组一、判断题1 2 3 4 5 6 7 8 9 10二、选择题1A 2D 3C 4C 5D 6B三、填空题1If xy Then t=y: y=x: x=t 2IS3For i = 0 to 9: B(i) = InputBox(B( & i & )=): Next i4Dim 5String 68四、

9、程序阅读题(写出下列程序的运行结果)程序1. 0 5 程序2. 20 程序3. 2 4 7 11 16程序4. 1 4 9 16 25程序5. 程序6. 五、程序填空题1(1)q * i (2)s + p * i / q (3)Next i2(1)r = 0 (2)m Mod n3(1)i + j - 1 (2)7 - i (3)Print4(1)10 + Int(Rnd * 90)(2)i + 1 To 30 (3)a(i)=a(j) (4)a(i) Mod 2 = 1六、程序设计题程序1界面设计略,过程设计如下:Private Sub Form_Click() Dim x As Integ

10、er, y As Integer, z As Integer Dim max As Integer, midd As Integer, min As Integer x = InputBox(请输入x的值:) y = InputBox(请输入y的值:) z = InputBox(请输入z的值:) If x y Then max = x Else max = y If z max Then max = z If x y Then min = x Else min = y If z 3 Then y = x + 3 ElseIf x = 1 Then y = x * x ElseIf x 0 Th

11、en y = Sqr(x) Else y = 0 End If Print yEnd Sub程序3界面设计略,过程设计如下:Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 9 For j = 1 To 9 Print Tab(j - 1) * 4)。 i * j。 Next j Print Next iEnd Sub程序4界面设计略,过程设计如下:Private Sub Form_Click() Dim x As Single, s As Single, t As Single Dim i As Inte

12、ger, n As Integer x = InputBox(请输入x的值:) n = InputBox(请输入n的值:) t = x / 2: s = t For i = 3 To n t = t * x / i s = s + t Next i Print sEnd Sub程序5界面设计略,过程设计如下:Private Sub Form_Click() Dim e As Single, t As Single, i As Integer e = 2: t = 1: i = 1 While t = 0.0001 i = i + 1: t = t / i: e = e + t Wend Pri

13、nt eEnd Sub程序6界面设计略,过程设计如下:Option Base 1Private Sub Form_Click() Dim n As Integer, a(9, 9) As Integer, i As Integer, j As IntegerOn Error GoTo k 下列代码中若出现错误,转到标号为K的语句执行。 n = InputBox(请输入n,0n10) For i = 1 To n: a(i, 1) = 1: a(i, i) = 1: Next i For i = 3 To n For j = 2 To i - 1 a(i, j) = a(i - 1, j - 1

14、) + a(i - 1, j) Next j, i For i = 1 To n Print Tab(30 - 2 * i)。 For j = 1 To i Print Space(4 - Len(Trim(Str(a(i, j)。 Trim(Str(a(i, j)。 Next j Print Next i Exit Subk: MsgBox 输入n值小于1或大于10,数组下标超界。End Sub第4章 函数与过程一、判断题12345678二、填空题1按地址传送2b() As Long36 4按值传递5按地址传递6Public x As Single7Static x As Integer8F

15、orm2.y三、程序阅读题(写出下列程序的运行结果)程序1.s = 2 程序2. 1 程序3. 1 1 2 1 1 2 1 2 2 2 2 3 s = 5 1 1 s = 9 1 2 1 1 3 3 1 1 4 6 4 1四、程序填空题1(1)ByeVal (2)k Mod i (3)k = k i (4)Call pp(i)2(1)a() Aa Double (2)n-1 (3)a(j) Abs(xmax) Then xmax = x(i, j): ki = i: kj = j Next j, i End Sub第5章 常用控件一、判断题123456789101112131415161718

16、19202122232425二、选择题1C 2D 3B 4B 5B 6C 7B 8B 9B 10A11D 12C 13B 14B 15A 16D 17B 18B 19B 20A三、填空题1上、下、左、左 2缇、无关 3&、+ 4Enabled 5MaxLength6Text1.SetFocus 7MultiLine 8Visible 9Alignment 10AutoSize11ForeColor 120或1 13True 141 15AddItem161 17List1.Clear 18文本框、列表框19下拉式组合框、简单组合框、下拉式列表框 20Scroll 21Value22Change

17、 23定时器不起作用 24Timer 2565535四、程序阅读题程序1. 116 程序2. 8程序3. 23451 程序4. 小,你好! 程序5. 您好34512 小李,你好! 欢迎使用Visual Basic!程序6. 李子 程序7. y = 6 程序8. n = 1苹果 y = 14 n = 3橘子 n = 5葡萄柚子香蕉五、程序填空题1(1)a(i) = Mid(str1, i, 1) 或 a(i) = Mid(Text1.Text, i, 1)(2)p = j (3)a(i) = a(p) (4)Command2.Enabled = True2(1)1 To 2*i1(2)Comma

18、nd2.Enabled = True(3)Command2.Enabled = False3(1)Text2.Enabled = False (2)p = 2 (3)Print i(4)Val(Text1.Text) 2 或 Val(Text1.Text) 10 Then Label1.Caption = 差!重新开始: Call Form_Load Else If m num Then Label1.Caption = Str(m) & 大了! ElseIf m num Then Label1.Caption = Str(m) & 小了! Else If rec 0 Then Label1.Caption = 选择了 & n & 个

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1