当前位置：文档之家 › Visual Basic程序设计基础习题答案

Visual Basic程序设计基础习题答案

  • 格式：docx
  • 大小：80.80 KB
  • 文档页数：32

《Visual Basic程序设计基础》教材 习题参考答案

第1章 Visual Basic 6.0程序设计概述 一、判断题 1．√ 2．√ 3．×说明：同类控件（如两个标签）相互重叠，设计时可以设置“置前”、“置后”属性。 4．√ 5．× 6．√ 7．× 8．√ 9．√ 10．× 11．√ 12．√ 13．× 14．√ 15．× 16．√ 17．√ 18．√ 19．√ 20．√

二、选择题 1. C 2. B 3．D 4．C 5．B 6．A 7．D 8．A 9．B 10．A 11．C 12．D

三、填空题 1．对象、事件 2．属性、方法、事件 3．控件、屏幕（Screen） 4．对象 5．Left、Top 6．属性、.= 7．网格 8．F orm1 9．Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列） 10．Activate、Deactivate

四、程序设计题 程序1．界面设计参看图10-1、10-2以及表10-1。

表10-1 实例2各控件的主要属性设置 控件 属性（属性值） 属性（属性值） 标签控件1 Name(Label1) Caption("我的第一个VB程序")

标签控件2 Name(Label2) Caption("请输入你的姓名") FontUnderLine(True) FontItalic(True) 命令按钮1 Name(Command1) Caption("确定(&O)") 命令按钮2 Name(Command2) Caption("结束(&X)") 过程设计如下： Private sub Form_Click() Command2.Enabled = False Een Sub Private Sub Command1_Click() Label2.Visible = False Label1.Caption = Text1.Text + ": 欢迎使用" + Label1.Caption Text1.Visible = False Command1.Enabled = False: Command2.Enabled = True End Sub Private Sub Command2_Click() End End Sub 程序2．界面设计略，过程设计如下： Private Sub Command1_Click() '字体变大 Form1.FontSize = Form1.FontSize + 3 Form1.Cls: Print "欢迎使用VB" End Sub Private Sub Command2_Click() '字体变小 Form1.FontSize = Form1.FontSize - 3 Form1.Cls: Print "欢迎使用VB" End Sub Private Sub Command3_Click() '字体加粗 Form1.FontBold = True Form1.Cls: Print "欢迎使用VB" End Sub Private Sub Command4_Click() '字体不加粗 Form1.FontBold = False Form1.Cls: Print "欢迎使用VB" End Sub 运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize属性值小于0会产生适时错误。

程序3．界面设计略，过程设计如下（窗体Height值的计量包括标题、边框，而ScaleHeight值仅与窗体有效绘图区域的高度有关）： Private Sub Form_Load() Text1.Text = "Visual Basic 程序设计" End Sub Private Sub Form_Resize() Text1.Top = 0: Text1.Left = 0 Text1.Width=Form1.ScaleWidth/2 '用 Form1.ScaleWidth效果优于用Form1. Width Text1.Height=Form1.ScaleHeight/2 '用 Form1.ScaleHeight优于用Form1. Height Command1.Top = Form1.ScaleHeight - Command1.Height Command1.Left = Form1.ScaleWidth - Command1.Width End Sub 第2章 程序设计基础 一、判断题 1．√2．×3．×4．×5．√6．×7．√8．√9．√10．×

二、选择题 1．B 2．D 3．A 4．C5．C 6．B 7．A 8．D 9. C 10．A

三、填空题 1．String 2．4 3．"aaa" 4．145 5．6 6．3 7．18 8．False 9．(x Mod 10) * 10 + x \ 1010．10 + Int( Rnd * 90 ) 11．a * b Mod c 12．Log(x)+Sin(3.141593/6) 13．Const PI=3.141592614．日期15．Int(x)+1

四、程序设计题 程序1．界面设计略，过程设计如下： 方法一、用文本框控件输入圆的半径 Private Sub Command1_Click() Dim x As Single x = Text1.Text Label1.Caption = x * x * 3.141593 End Sub 方法二、用InputBox函数输入圆的半径 Private Sub Command1_Click() Dim x As Single '若要求计算结果具有15位有效位数，声明x为Double类型 x = InputBox("r=","输入圆的半径") Label1.Caption = x * x * 3.141593 End Sub 程序2．略。

第3章 结构化程序设计与数组 一、判断题 1．√ 2．× 3．√ 4．× 5．√ 6．× 7．× 8．√ 9．× 10．√

二、选择题 1．A 2．D 3．C 4．C 5．D 6．B

三、填空题 1．If x>y Then t=y: y=x: x=t 2．IS 3．For i = 0 to 9: B(i) = InputBox("B(" & i & ")="): Next i 4．Dim 5．String 6．8

四、程序阅读题（写出下列程序的运行结果） 程序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 i 2．（1）r = 0 （2）m Mod n 3．（1）i + j - 1 （2）7 - i （3）Print 4．（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 Integer, 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 < min Then min = z midd = x + y + z - max - min Print max; midd; min End Sub

程序2．界面设计略，过程设计如下： Private Sub Form_Click() Dim x As Single, y As Single x = InputBox("请输入x的值：") If x > 3 Then y = x + 3 ElseIf x >= 1 Then y = x * x ElseIf x > 0 Then y = Sqr(x) Else y = 0 End If Print y End 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 i End Sub

程序4．界面设计略，过程设计如下： Private Sub Form_Click() Dim x As Single, s As Single, t As Single Dim i As Integer, 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 s End 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 Print e End Sub

程序6．界面设计略，过程设计如下： Option Base 1 Private Sub Form_Click() Dim n As Integer, a(9, 9) As Integer, i As Integer, j As Integer On Error GoTo k '下列代码中若出现错误，转到标号为K的语句执行。 n = InputBox("请输入n，0 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) + a(i - 1, j) Next j, i For i = 1 To n Print Tab(30 - 2 * i);

合集下载

VB程序设计习题及答案第2章VisualBasic语言基础知识

VB程序设计习题及答案第2章VisualBasic语言基础知识

第2章 Visual Basic语言基础知识2．1 Visual Basic定义了几种数据类型，变量有哪几种数据类型，常量有哪几种数据类型。

【答】Visual Basic基本数据类型：1. 字符串型（String）：字符串分为变长字符串和定长字符串两种。

2. 数值型：数值型数据分为整型数和浮点数两类。

3. 货币型（Currency）4. 变体型（Variant）5. 字节型（Byte）6. 布尔型（Boolean）7. 日期型（Date）8. 对象型（Object）Visual Basic中包含两种常量，即文字常量和符号常量。

变量的基本数据类型：Byte（字节型），Boolean（布尔型），Integer（整型），Long （长整型），Single（单精度型），Double（双精度型），Currency（货币型），Date（日期型），Object（对象型），String（变长字符串），String（定长字符串），Variant（变体型、数字），Variant（变体型、字符）2．2 符号常量和变量有什么不同点?【答】符号常量一经定义，就不能在程序中的其他位置改变其值。

变量的值在程序中可以改变。

2．3 指出下列正确的变量名：g(1-k) 6adhs *sss kL2.1 Printx+1 ahi π .ex3 j5h【答案】正确的变量名：ahi，j5h2．4 指出下列正确的数字形式-1.25 ±0.123 89E D2585 10^(2.7) 3^5【答案】2．5 下列表达式若有错误，请改正（1） ts+cos(300) (2) (x+y)^(25÷s)（3） [(X1+X2)*(X1-3)-6]*7 (4) (X÷-2)+sin(1.2+π)【答案】(1) ts+cos(30*3.141593/180)(2) (x+y)^(25/s)(3) ((X1+X2)*(X1-3)-6)*7(4) (X/(-2))+sin(1.2+3.141593)2．6 写出下列数学式的Visual Basic表达式（1） sin(a)[cos(b)+1.5]（2） (x1+4)5(e2-a)（3） 36[(x1+π)(x1÷3.3)-b]（4） x-2π)【答案】Visual Basic表达式：(1) sin(a)*(cos(b)+1.5)(2) (x1+4)^5*(Exp(2)-a)(3) 36*((X1+3.141593)*(x1/3.3)-b)(4) x^（-2）+5.8*sin(3.5*3.141593)第3章顺序结构程序设计3．1 下列语句是否有错？若有，请改正。

Visual Basic基础练习题+答案

Visual Basic基础练习题+答案

Vb基础练习题班级：___________姓名：___________1．在VB集成开发环境中，要进入运行模式，可以执行“运行”菜单中的“启动”命令，也可以单击工具栏上的( )A． B． C． D．2．算法是求解某一问题的步骤和方法。

算法的输出结果至少应有( )。

A．0个 B．1个 C．2个 D．3个3．在ＶB中，用来描述对象的外部特征称为对象的( )。

A．事件 B．方法 C．属性 D．驱动4．VB中标签控件（Label）具有的功能是（）。

A．输入文本 B．显示文本 C ．计时 D．显示时间5．如下图所示，在Visual Basic工程设计中，要在命令按钮command1中显示“确定”，则下列操作正确的是( )A．在Text属性值中输入“确定”B．在Caption属性值中输入“确定”C．在Font属性值中输入“确定”D．在Name属性值中输入“确定”6．下列关于"控件"属性的说法正确的是( )A、控件的每一个属性都具有同样的默认值；B、所有对象都具有同样的属性；C、控件的属性只能在设计时设置，不能在运行时修改；D、单击窗体中的某控件，在属性窗口中的属性列表框中找到所要设置的属性，即可设置其属性值；7．方小舟同学用VB制作程序界面，如下图所示要将按钮上显示的“Command1”改成“退出”，应该修改的是（）。

A．①名称属性 B．②BackColor属性 C．③Caption属性 D．④Default属性8．在Visual Basic 中，赋值语句chepai="浙D ．V8888"中的"浙D ．V8888"是( ) A ．字符串常量 B ．数值常量 C ．逻辑常量 D ．实数常量 9．在VB 中，下列选项属于字符串型数据的是( )A ．2356B ．"BX277"C ．BX277D ．2014-5-28 10．在Visual Basic 代码窗口中，语句Student.Text="宋知国"中的Text 是（ ） A 、属性值 B 、属性名 C 、对象名 D 、窗口名 11． 以下合法的变量名是（ ）A ．A-B B ．forC ． a_1D ．4S 12．以下哪个是函数_____。

visual_Basic程序设计教程_课后习题答案及练习

visual_Basic程序设计教程_课后习题答案及练习

《ＶB程序设计》综合复习资料
第一章Visｕal Baｓiｃ程序设计概述
一、填空题
1、VisuaｌBaｓｉc就是一种面向______＿＿_＿得可视化程序设计语言,采取了__________得编程机制。
2、在VB中工程文件得扩展名就是_＿＿__＿______,窗体文件得扩展名就是______＿__＿__,标准模块文件得扩展名就是__________＿_。
B.一个工程文件由若干个窗体文件组成
Ｃ.不需要编写大量代码来描述图形对象ﻩ
D.所见即所得
3、下列不能打开属性窗口得操作就是( )
A。执行“视图”菜单中得“属性窗口”命令
B.按F4键C.按Ctｒl＋T
Ｄ.单击工具栏上得“属性窗口”按钮
4、下列可以打开立即窗口得操作就是( )
A.Ctrl+ＤB、Ｃtrl+EC。Ctｒl+FD.Ｃtｒｌ＋G
D。文本框得ＬOCＫED属性为FALSE
1２、在运行阶段,要在文本框TEXT1获得焦点时选中文本框中所有内容,对应得事件过程就是()
A.Ｐrivａte SｕｂText１＿GotFocus( )
Ｔext１、SelＳtaｒｔ＝０
Texｔ1。Sellength=Lｅn(Ｔext1。Tｅxt)
EｎdＳｕｂ
B.PｒｉvａｔｅSuｂTｅxｔ1_LostFｏｃｕs( )
４、设置控件背景颜色得属性名称就是＿_＿_＿_＿____________＿＿_。
5、所有控件都具有得共同属性就是__＿_＿____＿___＿_＿__属性。
6、一般情况下,控件有两个属性项得缺省值就是相同得,这两个属性项就是___＿__＿__＿__＿__。
7、VＢ中得每个对象(控件)都有一组特征,这组特征称为_____＿_＿__,我们通过修改它可以控制对象得外观与操作、
VisualBasic程序设计作业题解.

VisualBasic程序设计作业题解.

Visual Basic程序设计作业题解作业 3一、选择题1． Visual Basic 依据计算机接见文件的方式将文件分红三类，此中不包含（）。

A．次序言件B． Unix 文件C．二进制文件D．随机文件答案： B2．随机文件进行文件读写的单位是（）。

A ．字节B．记录C．整个文件D ．字符答案： B3．为了使目录路径列表Dir1 的内容切合驱动器列表框Drive1 的选择，应该（）。

A ．在 Dir1_Click事件中加入Dir1.Path=Drive1.DriveB．在 Drive1_Click事件中加入Dir1.Path=Drive1.DriveC．在 Dir1_Click事件中加入Drive1.Path=.Drive.PathD ．在 Dir1_Click事件中加入Drive1.Path=.Dir1.Path答案： A4．为了使 Drive1 驱动器列表框、 Dir1 目录路径列表框和File1 文件列表框能同步协调工作，需要在（）。

A ．Drive1 的 Change 事件过程中加入 Drive1.Drive=Dir1.Path, 在 Dir1 的 Change 事件过程中加入 Dir1.Path=File1.Path 代码。

B．Drive1 的 Change 事件过程中加入 Dir1.Path=Drive1.Drive, 在 Dir1 的 Change 事件过程中加入 File1.Path=Dir1.Path 代码。

C． Dir1 的 Change 事件过程中加入 Dir1.Path=Drive1.Drive, 在 File1 的 Click 事件过程中加入File1.Path=File1.FileName 代码。

D ．Dir1 的 Change 事件过程中加入 Dir1.Path=Drive1.Drive, 在 File1 的 Click 事件过程中加入File1.Path=Dir1.FileName 代码。