四川省自考Visual Basic程序设计复习题答案
《Visual Basic程序设计》考试试卷和答案
《Visual Basic程序设计》考试试卷一适用班级：计算机系网络04401班答题时间：100分钟班级学号姓名一、选择题（1分/题，共6分）（1）以下不能在"工程资源管理器"窗口中列出的文件类型是A）.bas B）.res C）.frm D）.ocx（2）下列可作为Visual Basic变量名的是A）A#A B）4A C）?xy D）constA(3) 在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。
列表框中显示若干城市的名称。
当单击列表框中的某个城市名时，在标签中显示选中城市的名称。
下列能正确实现上述功能的程序是A）Private Sub List1_Click() B）Private Sub List1_Click()Label1.Caption = List1.ListIndex Label1. Name = List1. ListIndexEnd Sub End SubC）Private Sub List1_Click() D）Private Sub List1_Click() = List1.Text Label1.Caption = List1.TextEnd Sub End Sub(4) 在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。
用于标识各个控件数组元素的参数是A）Tag B）Index C）ListIndex D）Name(5) 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Option Base 0Private Sub Command1_Click()Dim city As Variantcity = Array("北京", "上海", "天津", "重庆")Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A）空白B）错误提示C）北京D）上海（6）设有语句Open "c:\Test.Dat" For Output As #1则以下错误的叙述是A）该语句打开C盘根目录下一个已存在的文件Test.DatB）该语句在C盘根目录下建立一个名为Test.Dat的文件C）该语句建立的文件的文件号为1D）执行该语句后，就可以通过Print #语句从文件Test.Dat中读出信息二、填空题（每空2分，共28分）请将每空的正确答案写在答题卡【1】～【14】序号的横线上，答在试卷上不得分。
VB程序设计复习题答案范文
VB程序设计复习题1．Visual Basic是一种___D___的可视化程序设计语言。
A．面向机器 B．面向过程 C．面向问题 D．面向对象2．Visual Basic主窗口中不包括____B_____。
A．标题栏 B．状态栏 C．工具栏 D．菜单栏3．程序运行中用鼠标双击当前窗体时，会触发窗体的_____C____ 事件。
A．Load B．Unload C．DblClick D．KeyPress4．假设窗体上已有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先要执行的操作是____A______。
A．单击窗体上没有控件的地方 B．单击任一个控件C．双击任一个控件 D．双击窗体上没有控件的地方5、要设置窗体上各控件的属性，可在 ____C___ 中进行。
A．窗体布局窗口 B．工程资源管理器窗口C．属性窗口 D．窗体窗口6．设变量A的值为-2，则___A___函数的执行结果与其他三个不一样。
A．Val("A") B．Int(A) C．Fix(A) D．-Abs(A)7．要在窗体Forml的标题栏上显示"统计程序"，可用___B___语句。
A．="统计程序" B．Form1.Caption="统计程序"C. Forml.Caption=统计程序 D．=统计程序8．函数String(n, "str")的功能是 B 。
A．把数值型数据转换为字符串B．返回由n个字符组成的字符串C．从字符串中取出n个字符D．从字符串中第n个字符的位置开始取子字符串9、定义变量如下：Dim MyVarMyVar =”come see me “若在立即窗口中显示MyVar的值，下面正确的是（ A ）A．Debug.Print MyVar B、? MyVar C．Printer.Print MyVar D、Print MyVar 10．设置复选框或单选按钮标题对齐方式的属性是（ D ）A．Align B．value C．Sorted D. Alignment11、滚动条控件的LargeChange属性所设置的是（ A ）A．单击滚动条和滚动箭头之间的区域时，滚动条控件value属性值的改变量B．滚动条中滚动块的最大移动位置C．滚动条中滚动块的最大移动范围D．滚动条控件无该属性12、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（ D ）A．Caption B．Name C．Text D．value13、在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序：Private Sub Command1_Click( )a=Text1.textb=Text2.textC=Lcase(a)D=Ucase(b)Print C;DEnd Sub程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是（ A ）A．abcEFG B．abcefg C．ABCefg D．ABCEFG14．假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，则正确的属性设置为（ A ）A．Label1.BackStyle=0 B．Label1.BackStyle=1Label1.BorderStyle=0 Label1.BorderStyle=1C．Label1.BackStyle=True D．Label1.BackStyle=FalseLabel1.BorderStyle=True Label1.BorderStyle=False15．当拖动滚动条中的滚动块时，将触发滚动条的事件是（ D ）A．Move B．Change C．SetFocus D．Scoll16．比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（ C ）A．两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小B．两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分C．当图片框（PictureBox）的AutoSize属性为FaLse时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸D．当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框17．当利用Line方法进行绘图时，以下正确的说法是（ B ）A．有7种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线B．使用Line(100,100)-(1000,1200)和Line(100,100)-Step(900,1100)将绘制两条相同位置的直线C．可利用Line方法添加矩形，如Line(300,300)-(2000,2000),BFD．可利用Line方法添加矩形，如Line(300,300)-(2300,2300),B+F18．下面语句中错误的是（ B ）A． Redim Preserve Matrix(10,Ubound(Matrix,2)+1)B． Redim Preserve Matrix(Ubound(Matrix,1)+1,10)C． Redim Preserve DynArray(Ubound(DynArray)+1)D． Redim DynArray(Ubound(DynArray)+1)19．可以唯一标识控件数组中的每一个控件的属性是（ C ）A．Name B．Caption C．Index D．Enabled20、下面（ D ）不是VB的文件类控件A．DriveListBox控件 B．DirListBox控件C．FileListBox控件 D、MsgBox21、关于Open语句不正确的叙述是（ D ）（A）Open语句可以打开顺序文件（B）Open语句可以打开随机文件（C）Open语句可以打开二进制文件（D）Open语句可以打开一个窗体22、下列语句所声明的数组的元素个数为（ A ）Dim Ary(3 To 6,-2 To 2)（A）20 （B）16 （C）24 （D）2523、下面对控件数组叙述正确的是（ A ）（A）在窗体上添加第二个相同类型的控件时，VB不会提示创建一个控件数组（B）控件数组使用Index属性来标识控件元素，其范围必须从0开始（C）控件数组使用的资源比用几个单独同类型的控件占用的资源要多（D）如果有一个命令按钮数组，各个按钮都有自己的Click事件过程24、在框架Frame1和图片框Piture1中各有一组复选框CheckBox，其作用是（ D ）（A）两组复选框中只有一个能被选中（B）因有两组复选框，无一可被选中（C）两组复选框中各有一个能被选中（D）两组复选框中各有多个被选中25、要从For...Next循环中中退出循环，使用的语句是 (B)（A）Exit Do （B）Exit For （C）Continue （D）Stop二、多项选择题1、要清除文本框Textl中的内容，使其内容为空字符串，可以采用（ AC）。
《VISUAL BASIC程序设计基础》习题参考答案
'字体变小
Form1.FontSize = Form1.FontSize - 3
Form1.Cls: Print "欢迎使用 VB"
End Sub
Private Sub Command3_Click()
'字体加粗
Form1.FontBold = True
Form1.Cls: Print "欢迎使用 VB"
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
第 2 章 程序设计基础
一、判断题 1．√ 2．× 3．× 4．× 5．√ 6．× 7．√ 8．√ 9．√ 10．×
二、选择题 1．B 2．D 3．A 4．C 5．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
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;
Visual Basic考试试题带答案
Visual Basic考试试题带答案1. 应用程序打包后，其包文件的后缀为（ B ）。
A. .exeB. .cabC. .txtD. .ocx2. 在VB中，要想快速获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按的键是（ B ）A. HelpB. F1C. F10D. Enter3. 在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（ C ）。
A. 立即窗口B. 属性窗口C. 代码窗口D. 工程资源管理器窗口4. 后缀为.frm的文件表示VB 的（ A ）。
A. 窗体文件B. 类模块文件C. 工程文件D. 标准类模块文件5. 要改变控件的高度，应该修改控件的（ D ）属性。
A. TopB. LeftC. WidthD. Height6. 能够改变标签Label控件显示标题的属性是（ A ）。
A. CapionB. NameC. ClickD. Text7. 与传统的程序设计语言相比，Visual Basic最突出的特点是（ C ）A. 结构化程序设计B. 程序开发环境C. 事件驱动编程机制D. 程序调试技术8. 下列赋值语句正确的是（ B ）A. B+C =AB. A=B+CC. -B=AD. 5=A+B9. 应用程序设计完成后，应将程序保存，保存的过程是（ D ）。
A. 只保存窗体文件即可B. 只保存工程文件即可C. 先保存工程文件，之后还要保存工程文件D. 先保存窗体文件（或标准模块文件），之后还要保存工程文件10. 在Visual Basic中，要使一个窗体不可见，但不从内存中释放，应使用的语句是（ B ）。
A. ShowB. HideC. LoadD. UnLoand11. 如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（ B ）A. Text.MytextB. Mytext.TextC. Mytext.(Text)D. Mytext*Text12. 要在窗体Form1内显示“myfrm”，使用的语句是（ C ）A. Form.caption="myfrm"B. Form1.caption="myfrm"C. Form1.print "myfrm"D. Form. print "myfrm"13. 每建立一个窗体，工程管理器窗口中就会增加一个（ B ）。
Visual Basic程序设计复习题及答案
中南大学网络教育课程考试复习题及参考答案Visual Basic程序设计(专科)一、单项选择题：1.Visual Basic程序中的注释所使用的字符是 [ ]A. 'B. :C. \D. _2.若要设置定时器的定时间隔设为10秒，应将( )属性值设为10000。
[ ]A. IntervalB. ValueC. EnabledD. Text3.算法一般都可以用( )三种控制结构组合而成。
[ ]A.循环、分支、递归B.顺序、循环、嵌套C.循环、递归、选择D.顺序、选择、循环4.下列可调整图片框的大小以适合图片的属性是 [ ]A.stretchB. autosizeC. pictureD. oledropmode5.用下面的语句所定义的数组的元素个数是 [ ] Dim arr(3 to5,-2 to 2)A.20B. 12C.15D. 246.下列不属于常量的是 [ ]A. 12B. “ch”C. abcD. 1.237.InputBox函数的返回值类型为 [ ]A.数值型B.字符型C.逻辑型D.变体型8.默认情况下，语句：Dim student(10,5) 定义的数组有( )个元素。
[ ]A.50B.6C.15D.669.Abs( -3.14)的值是 [ ]A. 3B. -3C.-3.14D. 3.1410.要让菜单项无效，应将( )属性值设置为 False。
[ ]A. VisibleB. EnabledC. MoveableD. Checked11.以下代码，循环( )次 [ ]Dim nFor n = 1 To 50 Step 5sult.Text = Str(n)NextA.12B.10C.50D.1112.表达式 Mid("Beijing2008",4,4)的值是 [ ]A. BeijB. jingC. inj2D. 200813.A$="+3.14+2"，则Val（A$）的值为 [ ]A. +3.14+2B. +5.14C. 3.14D. 5.1414.语句：Dim student(10,5 to 100) 定义的是一个( )维数组。
Visual Basic程序设计复习题
《Visual Basic程序设计》复习题一、单选题（每小题2分）1.VB工程文件的扩展名是。
[A] .vbp[B] .frm[C] .frx[D] .bas2.控件________没有Caption属性。
[A] Label[B] OptionButton[C] Frame[D] TextBox3.当设置了定时器的有关属性后，使窗体自动向下移动的语句是哪条？[A] Move Left, Top + 100[B] Move Top + 100[C] Move , Top + 100 [D] Move Top = Top + 1004.将通用对话框控件Commondialog1显示为颜色对话框，可以改变该控件的________属性。
[A] Color[B] FileName[C] Action[D] Filter5.下列函数中, 返回值是字符串的是:[A] Chr[B] InStr[C] Val[D] Asc6.表达式6.5 Mod 5 \ 2+ Fix(-8.5) *3的值是__________。
[A]-27[B]-24[C]-23[D]-267.将当前窗体中显示的文字及绘制的图形全部清除，可以用________方法。
[A] Me.Clear[B] Me.Cls[C] Me=””[D] Me.Delete8.某顶级菜单项的热键字母为F，操作________等同于单击该菜单项。
[A] 同时按下[Ctrl]和[F]键[B] 按下[F]键[C] 同时按下[Alt]和[F]键[D] 同时按下[Shift]和[F]键9.一个对象可以执行的动作和可以被对象识别的动作分别称为________。
[A] 方法和事件[B] 事件和方法[C] 属性和方法[D] 事件和过程10.在设计模式双击窗体中的对象后，Visual Basic将显示的窗口是______。
[A] 属性窗口[B] 代码窗口[C] 工具箱[D] 项目（工程）窗口11.在以下________中的这些对象都不响应Click事件。
《VisualBasic程序设计》试题及其答案
《V i s u a l B a s i c程序设计》试题及其答案Tomorrow Will Be Better, February 3, 2021一、填空题每题1分,共10分1.把数学式子： 25sin 21π+写成VB 的数值表达式为Sqr1+3.14159/2Sin253.14159/180 ;2．设A=5,B=6,C=7,D=8,表达式3>2B OR A=C AND B<>C OR C>D 的值是 True ;3．若Case 子句中的表达式表列具有形式：<表达式1> To <表达式2>,则它的含义是：当测试表达式的值等于 指定范围内的值 时,执行该Case 子句相应的语句块;4．执行下面的程序段后,x 的值为 12 ;x=0For i=1 To 8 Step 3x=x+iNext i5．在图片框上放置的控件称为图片框的 子 对象,而窗体是图片框的 父 对象;6．将命令按钮Command1的Caption 属性值赋给文本框Text1的Text 属性使用的语句为 Text1.Text=Command1.Caption7．复选框的Value 属性为 1 时,表示复选框被选中;8. 使用滚动条可以获取某一范围内的数值输入;为使垂直滚动条的Value 属性值从下往上递增变化,应设置滚动条Min 属性值大于 Max 属性值;9．语句：Dim A-3 to 4 as Integer 定义的一维数组A 的元素个数是 8 ;10．给定如下子过程：Function funByVal num As Long As LongDim k As Long,i As Integerk=1For i=1 To numk=kiNext iEnd Function执行语句Print fun5 后在窗体上显示的结果为 0 ;二、单项选择题每题1.5分,共30分1.装载窗体是窗体的 C ;A 对象B 属性C 事件D 方法2.设a="Visual Basic",下面使b 的值为"Basic"的赋值语句正确的是 B ;A b=Lefta,8,12B b=Mida,8,5C b=Righta,5,5D b=Lefta,8,53．设X 为整型变量,不能正确表达1< X < 5的逻辑表达式是 A ;A 1< X <5B X=2 or X=3 or X=4C 1<X And X <5D Not X<=1 And Not X>=54．InputBox 函数返回值的类型为 B ;A 数值型B 字符串型C 逻辑型D 货币型5．执行语句：Print 4+5\68/8 Mod 9 输出的值是 A ;A 4B 5C 6D 76.下列循环语句能正常结束循环的是 C ;Ai=5 B i=1Do Doi=i+1 i=i+2Loop Until i< 0 Loop Until i=10Ci=10 D i=6Do Doi=i+1 i=i-2Loop Until i> 0 Loop Until i=17．以下叙述中正确的是 A ;A 窗体的Name属性指定窗体的名称 ,用来标识一个窗体B 窗体的Name属性的值是显示在窗体标题栏中的文本C 可以在运行期间改变窗体的Name属性的值D 窗体的Name属性值可以为空8．VB为命令按钮提供的Cancel属性 A ;A 用来指定命令按钮是否为窗体的“取消”按钮B 用来指定命令按钮的功能是停止一个程序的运行C 用来指定命令按钮的功能是关闭一个运行程序D 用来指定命令按钮的功能是中断一个程序的运行9．若使命令按钮失效,要对 A 属性设置为False;A EnabledB VisibleC BackColor DCaption10．在窗体中添加两个文本框其Name属性分别为Text1和Text2和一个命令按钮Name属性为Command1,然后编写如下两个事件过程：Private Sub Command1_Clicka = UCaseText1.Text + LeftText2.Text, 3Print aEnd SubPrivate Sub Form_LoadText1.Text = "abcDEF"Text2.Text = "123456"End Sub程序启动后,单击命令按钮,输出结果为CAabcDEF123456 BabcDEF123CABCDEF123 Dab12345611．在运行程序时,要使文本框获得焦点,则需使用B方法;A ChangeB SetFocusC GotFocusD Move12．下列语句中不能把图片框Picture1中的图形清除的是 A ;A Picture1.DelB Picture1.Picture=LoadPicture""C Picture1. Picture= LoadPictureD Picture1. Picture=Nothing13．要删除列表框中的某一个项目,需要使用 D 方法;A ClearB ReMoveC MoveD ReMoveItem14．在组合框中选择某一项目内容,在程序中可以通过D属性获得;A ListB ListIndexC ListCountD Text15．若有数组说明语句：Dim aAS Integer,则a被定义为B ;A 定长数组B 可调数组C 静态数组D 可变类型数组16．有如下语句：Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu.Name = "李强".Age = 21.Sex = "男"End With执行语句Print Stu.Age后在窗体上显示的结果是 B ;A李强 B21 C“男” DAge17.要使子过程f1调用后能用形式参数返回两个结果,下面子过程定义正确的是C ;ASub f1ByVal n%,ByVal m% BSub f1n%,ByVal m%<子过程体> <子过程体>End Sub End SubCSub f1n%,m% DSub f1ByVal n%,m%<子过程体> <子过程体>End Sub End Sub18.以下叙述中错误的是 D ;A 一个工程中可以包含多个窗体文件B 在一个窗体文件中用Private定义的子过程或函数过程不能被其他窗体文件调用C 在设计VB程序时,窗体模块和标准模块需要分别保存为不同类型的文件D 全局变量必须在标准模块中定义19．从磁盘上打开顺序文件"c:\t1.txt"为读入数据做好准备,如下语句A是正确的;A F="c:\t1.txt" BF="c:\t1.txt"Open F For Input As 1 Open "F" For Input As 2 COpen "c:\t1.txt" For Output As 1 DOpen c:\t1.txt For Input As 220.以下叙述中正确的是 B ;A 一个记录中所包含的各个元素的数据类型必须相同B 随机文件中每个记录的长度是固定的C Open命令的作用是打开一个已经存在的文件D 使用Input语句可以从随机文件中读取数据三、程序阅读题第1题3分,第2题5分,其余题各4分,共24分1．当x的输入值分别为4、8和12时,写出执行下列事件过程的输出结果;Private Sub Command1_ClickDim x%, y%x = InputBox"请输入x的值："Select Case xCase 1, 3, 5 ,7y = x + 10Case 8 To 10y = x + 2Case 2, 4, 6y = 5 xCase Is > 10y = x x + 1End SelectPrint "x="; x, "y="; yEnd Subx=4 y=20x=8 y=10x=12 y=1452. 写出执行下列事件过程的输出结果;Private Sub Command1_ClickConst n = 3Dim i As Integer, k As Integer For i = 1 To nPrint Tabn - i 2 + 1;For k = 1 To iPrint Strk;Next kFor k = i - 1 To 1 Step -1 Print Strk;Next kPrintNext iEnd Sub11 2 11 2 3 2 13.设在一个窗体如图所示中已设置了一个组合框Combo1和文本框Text 1,且有下列程序,试写出事件过程Combo1_Click的功能;Dim str As StringPrivate Sub Form_Loadstr = " "Combo1.AddItem "北京"Combo1.AddItem "天津"Combo1.AddItem "西安"Combo1.AddItem "上海"Combo1.AddItem "武汉"Combo1.AddItem "广州"Combo1.AddItem "海口"Combo1.Text = "北京"End SubPrivate Sub Combo1_Clickstr = str & Combo1.Text & ","Text1.Text = strEnd Sub在文本框中显示单击组合框列表项目时该项目的内容,而且以后来添加的方式在文本框中显示所有选择项目的内容;4. 写出执行下列事件过程的输出结果;Private Sub Form_ClickDim a1 To 2, 1 To 2 As IntegerDim i As Integer, j As IntegerFor i = 1 To 2For j = 1 To 2ai, j = 2 i - 1 4 + jNext jNext iFor i = 1 To 2Print ai, 3 - i, a3 - i, iNext iEnd Sub6 1313 65．写出执行下列事件过程的输出结果;Private Sub Command1_ClickDim a As Integer, b As Integera = 3:b = 2Call f8, aPrint "a="; a, "b="; bCall fa, bPrint "a="; a, "b="; bEnd SubPrivate Sub fByVal x As Integer, y As Integerx = x + 1y = y - 1End Suba=2 b=2a=2 b=16．若有如下窗体模块：Dim a As IntegerPrivate Sub testDim b As Integera = a + 1:b = b + 1Print "Sub: "; a, bEnd SubPrivate Sub Command1_Clicka = 2:b = 3Call testCall testEnd Sub写出当程序启动并单击命令按钮后,在窗体中显示的结果;Sub： 3 1Sub： 4 1四、程序填空题每空2分,共22分1. 下面事件过程的功能是：输入某个学生某门课程的百分制成绩,并根据成绩输出评语,若0≤成绩＜60 时,评语为“差”；若60≤成绩＜70时,评语为“通过”；若70≤成绩＜80时,评语为“中等”；若80≤成绩＜90时,评语为“良好”；若90≤成绩≤100时,评语为“优秀”,在横线上填上适当内容;Private Sub Command1_ClickDim ss = InputBox"请输入学生的成绩："If 0<=s And s<=100 ThenSelect Case 1 sCase Is >= 90Print "优秀"Case Is >= 80Print "良好"Case Is >= 70Print "中等"Case Is >= 60Print "通过"2 Case Else或Is >=0Print "差"End SelectEnd IfEnd Sub2.下面程序的功能是：计算 f=1 -1/2×3+1/3×4-1/4×5+ … +1/19×20的值,在横线上填上适当内容;Private Sub Form_ClickDim f As Single,i As Integer,sign As Integer3 sign=-1f = 14 for i=2 to 19f = f + sign/ii + 15 sign=sign-1Next iPrint " f= "; fEnd Sub3.下面窗体模块的功能是：从键盘上输入x,y和z的值,按如下公式求f x,y,z的值的程序,在横线上填上适当内容;fx,y,z=sinx/sinx-ysinx-z+siny/siny-zsiny-x+sinz/sinz-xsinz-y其中x、y和z互不相等;Function fByVal a As Single,ByVal b As Single,ByVal c As Single 6 As Single7 f=Sina/Sinb SincEnd FunctionPrivate Sub Command1_ClickDim x, y, z, sx = InputBox"x="y = InputBox"y="z = InputBox"z="If x <> y And y <> z And z <> x Thens=fx,x-y,x-z+fy,y-z,y-x+ 8 fz,z-x,z-yPrint "s="; sElsePrint "数据输入错误"End IfEnd Sub4.下面事件过程的功能是从学生分数顺序文件D: \file1.dat中读取各个学生的分数,并求该班的平均成绩,在横线上填上适当内容;Private Sub command1_ClickDim n%, score, sOpen "D:\file1.dat" 9 As 3 For Inputn = 0: s = 0While 10 Not EOF3Input 3,scores = s + scoren = 11 n+1WendPrint "平均成绩为："; s / nClose 3End Sub五、程序设计题每题7分,共14分1. 假设体操比赛有10个评委和评分规定为：①采用10分制；②去掉一个最高分和去掉一个最低分,然后计算平均分,该平均分作为最后得分;试编写一个事件过程,输入10个评委对某个运动员的评分存放在一维数组s中,计算该运动员的最后得分;Private Sub Command1_ClickDim s1 To 10, max, min, i%, summax = 0: min = 11: sum = 0For i = 1 To 10si = InputBox"请输入第" & Stri & "个评委的分数"Next iFor i = 1 To 10If si > max Then max = siIf si < min Then min = sisum = sum + siNext iPrint "最后得分："; sum - max - min / 8End Sub2. 勾股定理中的三个数a 、b 和c 的关系为：222c b a =+;试编写一个事件过程,求出30以内满足上述关系的整数组合并输出;例如,3、4和5就是这样一个整数组合;Private Sub Command1_ClickPrint "a","b","c"For a = 1 To 30For b = 1 To 30For c = 1 To 30If aa+bb=cc Then Print a,b,cNext cNext bNext aEnd Sub。
Visual-Basic程序设计综合练习题一及答案
Visual Basic程序设计综合练习题一及答案一、单项选择题(每题3分，共45分）1．无论何种控件，共同具有的属性是（）。
A．Text 属性B．Caption属性C．Name属性D．Autosize属性2．当需要上下文帮助时,选择要帮助的内容,希望出现MSDN窗口及显示所需的帮助信息，应按的键是( )。
A．Help B．F10 C．F1 D．Esc3．为了保存一个Visual Basic应用程序,下列说法正确的是（）。
A．只保存窗体文件（。
frm）B．只保存工程文件(.vbp）C．分别保存工程文件和标准模块文件(。
bas)D．分别保存工程文件、窗体文件和标准模块文件4．在Visual Basic中,变量的默认类型是（)。
A．Integer B．VariantC．Double D．Currency5．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件,需要设置的属性是( ）。
A．Interval=0或Enabled=False B．Interval=0或Visible=False C．Enabled=False 或Enabled=0 D．Interval=0且Enabled=False6．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮,只要对下列( ）属性设置就有效。
A．MaxButton B．BorderSyleC．Width D．MinButton7．有程序代码如下：Text1。
Text = "Visual Basic"，则Text1，Text ，和"Visual Basic"分别代表( ）。
A．对象，值，属性B．对象，方法，属性C．对象，属性，值D．属性，对象，值8．要设置命令按钮的背景图形，必须设置的两个属性是（）。
A．Value和Icon B．Style和IconC．Caption和Picture D．Style和Picture9．在VB中，下列合法的变量名是（）。
Visual Basic程序设计习题答案(VB理论教材1~6章)
第一章VB概述一．选择题二．填空题1．视图工具箱2．对象事件驱动3．代码窗体设计器4．属性方法事件5．对象的特征6．一个对象可执行的动作7．属性窗口赋值语句三．简答题1．略2．略四．编程题【属性窗口设置】Caption 这是我的第一个练习【代码窗口设置】Private Sub Form_Click()Print "我可以用Visual Basic语言编写程序了！"End Sub第二章窗体与常用控件一．选择题二．填空题1．Value2．下拉列表框3．Scroll4．LargeChange5．ASCII码6．Enabled7．ListCount8．PopupMenu9．Alt10．复选11．CommonDialog1.ShowColor 或者 ShowColor12．Flags13: 114．-15．GFED第三章VB程序设计基础一．选择题二．填空题1．Right(CStr(x) , 1) & Left(CStr(x) , 1)2．x Mod 5=0 Or x Mod 9=03．False4．CDEF5．s >= "A" And s <= "Z" Or s >= "a" And s <= "z"6． x >= 0 And x < 1007．Int(Rnd * (X - 2) + 3)8．Sqr(cos(23 * 3.14 / 180) / (x ^ 2 * Log(y)))9．-4 -5 -410．"请输入圆的半径：" "求圆的面积" 211．"圆的半径值必须介于1到10之间，请重输" 48 "求圆的面积"第四章VB控制结构一．选择题二．填空题1． 4.8 202． y = 113． 1！+2！+3！+4！+5！4． 9k5． 0n6． 27． x >= 0x > max8． 5 713 1214 119．sum=0sum+jst & k & "+"10．4111011． i + 1List1.RemoveItem j12．Combo1.List(i)=Combo1.Textflag = FalseCombo1.AddItem Combo1.Text 三．编程题1．Private Sub Form_Click()Dim x As Singlex = Val(InputBox("请输入一个x的值：")) If x <= 0 Thenfx = -1ElseIf x < 1 Thenfx = Sqr(x)Elsefx = x ^ 3 + 2End IfMsgBox ("运算结果为：" & fx)End Sub2．Private Sub Form_Click()Dim n As Integer, k As Integer, s As Stringn = Val(InputBox("请输入一个正整数："))k = 2s = n & "="DoIf n Mod k = 0 Thens = s & k & "*"n = n \ kElsek = k + 1End IfLoop Until n = ks = s & kPrint sEnd Sub3．Private Sub Form_Click()Dim s As String, i As IntegerDim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer s = Text1.TextFor i = 1 To Len(s)If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" ThenIf Val(Mid(s, i, 1)) Mod 2 <> 0 Thena = a + 1Elseb = b + 1End IfElseIf Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "Z" Thenc = c + 1ElseIf Mid(s, i, 1) >= "a" And Mid(s, i, 1) <= "z" Thend = d + 1Elsee = e + 1End IfNext iPrint "奇数个数为："; aPrint "偶数个数为："; bPrint "大写字母个数为："; cPrint "小写字母个数为："; dPrint "其他字符个数为："; eEnd Sub4．Private Sub Form_Click()Dim n As Integer, sum As Integern = Val(InputBox("请输入一个正整数："))Do Until n = 0sum = sum + n Mod 10n = n \ 10LoopMsgBox ("各位数字之和为：" & sum)End Sub5．Private Sub Form_Click()Dim n As Long, i As Integer, L As Integern = Val(InputBox("请输入一个正整数："))L = Len(CStr(n))For i = 1 To L / 2If Mid(CStr(n), i, 1) <> Mid(CStr(n), L, 1) Then Exit ForEnd IfL = L - 1Next iIf i > L / 2 ThenMsgBox ("该数是回文数。
《Visual Basic程序设计基础》习题参考答案
第7章对话框与菜单程序设计一、判断题1．√2．√3．√4．×5．×6．×7．√8．√9．√10．√二、选择题1．D 2．A 3．C 4．C 5．B 6．D 7．A 8．B 9．D 10．B三、填空题1．窗体控制菜单、下拉式菜单、快捷菜单2．ShowFont3．打开文件、另存为、颜色、字体、打印对话框4．工程、部件5．CommonDialog1.Action =3、CommonDialog1.ShowColor6．提示信息、对话框类型、对话框标题7．Click8．工具9．代码窗口、Click 10．相同、正四、程序阅读题程序1. 显示提示信息为“5”、标题为“na的输出结果”、有一个“确定”按钮的消息框。
程序2. 显示提示信息为“您选择了第1项”、标题为“第一项”、有一个“确定”按钮的消息框。
五、程序填空题1．（1）Int(Rnd*100) （2）Str(i) （3）Exit For2．（1）False （2）Date （3）CommonDialog1.Color （4）m1六、程序设计题程序1．界面设计略，过程设计如下：Private Sub Command1_Click()CommonDialog1.ShowOpenList1.AddItem CommonDialog1.FileNameEnd Sub程序2．界面设计略，过程设计如下：Private Sub Command1_Click()CommonDialog1.ShowSaveList1.AddItem CommonDialog1.FileNameEnd Sub程序3．界面设计如图10-9、表10-2所示，过程设计如下：Private Sub Sqr_Click()Shape1.Shape = 1End SubPrivate Sub Rec_Click()Shape1.Shape = 0End SubPrivate Sub Oval_Click()Shape1.Shape = 2End SubPrivate Sub Circle_Click()Shape1.Shape = 3End SubPrivate Sub Rrec_Click()Shape1.Shape = 4End SubPrivate Sub RSqr_Click()Shape1.Shape = 5End SubPrivate Sub Shp_Click()Shape1.FillStyle = 2End SubPrivate Sub Shzh_Click()Shape1.FillStyle = 3End SubPrivate Sub Xiex_Click()Shape1.FillStyle = 4End SubPrivate Sub ShPJ_Click()Shape1.FillStyle = 6End SubPrivate Sub XJ_Click()Shape1.FillStyle = 7End SubPrivate Sub FillColor_Click()CommonDialog1.ShowColorShape1.FillColor = CommonDialog1.ColorEnd SubPrivate Sub Exit_Click()EndEnd Sub第8章文件一、判断题1．×2．√3．×4．√5．√6．×7．√8．×9．√10．√11．×12．×13．√14．×15．×二、选择题1．A 2．C 3．B 4．B 5．A 6．C 7．C 8．B 9．C 10．B 11．D 12．B 13．B三、填空题1．ChDir 2．FileLen 3．Change 4．EOF 5．Line Input四、程序阅读题程序1. y= 1 a= 1 程序2. NO. 1 3 程序3.y= 3 a= 2 NO. 2 4 窗体：36 25 16 9 4 1y= 6 a= 3 NO. 3 7 文件：1 4 9 16 25 36y= 10 a= 4 NO. 4 11程序4. 程序5. 1 程序6. 1窗体上显示内容：20 2 2 1 2文件中内容：4 6 8 10 12 3 3 3 1 2 34 4 4 45 5 5 5 5五、程序填空题1．（1）Dim n As Integer （2）"C:\windows\calc.exe"（3）Output （4）End2．（1）For Output As #2 （2）0 （3）"temp.dat" As "c:\a1.dat"3．（1）Open "e:\dataout.txt" For Output As #1（2）t1 Mod t2 = 0 （3）If flag Then （4）Print coun六、程序设计题程序1．界面设计如图10-10所示，过程设计如下：Dim fn As StringPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub File1_Click()If Right(File1.Path, 1) = "\" Thenfn = File1.Path + File1.FileNameElsefn = File1.Path + "\" + File1.FileNameEnd IfEnd SubPrivate Sub Command1_Click()Dim yesno As Byteyesno = MsgBox("确认要删除吗？", vbYesNo, "删除文件")If yesno = vbYes Then Kill fnFile1.RefreshEnd Sub程序2．建立4个文本框控件依次输入姓名、出生年月、外语、计算机成绩，按“确认”按钮追加该记录到磁盘文件d:\student.dat。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
复习题 第1页 共6页 《Visual Basic程序设计》复习题 一、单项选择题 1、以下不属于Visual Basic系统的文件类型是( )。 【 B 】 A．.frm B．.bat C．.vbg D．.vbp 2、与传统的程序设计语言相比，Visual Basic最突出的特点是______。【 D 】 A．结构化程序设计 B．程序开发环境 C．程序调试技术 D．事件驱动编程机制 3、如果要设置窗体的标题栏，应设置的属性是______。 【 C 】 A、Name B、Title C、Caption D、Text 4、若要使命令按钮不可用，课设置其______属性为False来实现。 【 D 】 A、Value B、Cancel C、Default D、Enabled 5、下列符号（）是Visual Basic中的合法变量名。 【 A 】 A．x23 B．8xy C．END D．X8[B] 6、“x是小于105的非负整数”，用Visual Basic表达式表示正确的是【 C 】 A、0<=x<105 B、0C、0<=x And x<105 D、0<=x Or x<=105 7、用于从字符串左边截取字符的函数是 【 C 】 A、Ltrim() B、Trim() C、Left() D、Instr() 8、循环结构For i = 1 To 10 Step 2 的执行次数是 【 B 】 A、10 B、5 C、4 D、6 9、当鼠标指针在屏幕上移动时会触发的事件是______。 【 B 】 A、MouseDown B、MouseMove C、MouseUp D、MousePress 10、在事件过程中，Private表示 【 B 】 A、此过程可以被任何其它过程调用 B、此过程只可以被本窗体模块中的其它过程调用 C、此过程不可以被任何其它过程调用 D、此过程只可以被本工程中的其它过程调用 11、建立并打开一个新的顺序文件“seqnew.dat”的正确语句是______。 【 A 】 A、 Open “seqnew.dat” For Output As #1 B、Open “seqnew.dat” For input As #1 C、Open “seqnew.dat” For Binary As #1 D、Open “seqnew.dat” For Random As #1
12、下面的语句用Array 函数为数组变量a 的各元素赋整数值：a=Array(1，
2，3，4，5，6，7，8，9),针对a 的声明语句应该是______。 【 A 】 A、Dim a B、Dim a As Integer 复习题 第2页 共6页
C、Dim a(9) As Integer D、Dim a() As Integer 13、使用CommonDialog控件的______方法可显示“字体”。 【 D 】 A、ShowOpen B、ShowSave C、ShowColor D、ShowFont 14、VB6.0中专门为程序代码的书写提供了一个______窗口。 【 A 】 A、代码 B、属性 C、窗体 D、立即 15、Visual Basic程序中的注释所使用的字符是______。 【 A 】 A、' B、: C、\ D、_ 16、下列不属于常量的是______。 【 C 】 A、12 B、“ch” C、abc D、1.23 17、下列说法错误的是______。 【 C 】 A、Stop语句用来暂停程序的执行 B、End语句是用来结束一个程序的执行 C、Msgbox语句和Msgbox函数都有返回值 D、MsgBox语句常用于简单的信息显示 18、命令按钮的标题文字由____属性来设置。 【 B 】 A、Text B、Caption C、Name D、(名称) 19、以下不允许用户在程序运行时输入文字的控件是______。 【 D 】 A、文本框 B、组合框 C、简单组合框 D、下拉式列表框 20、时钟控件的时间间隔是______。 【 A 】 A、以毫秒计 B、以分钟计 C、以秒计 D、以小时计
21、假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是______。 【 B 】 A、数组中每个命令按钮的名称(名称属性)均为Command1 B、数组中每个命令按钮的标题(Caption属性)都一样 C、数组中所有命令按钮可以使用同一个时间过程 D、用名称Command1(下标)可以访问数组中的每个命令按钮 22. 标准模块文件的扩展名是（ ）。 【 C 】 A、.cls B、.frm C、 .bas D、.rec 23. 下列逻辑表达式为True的是（ ）。 【 C 】 A、"A"<"9" B、"A">"a" C、"a">"AT" D、"AT"<"AND" 24. 用（ ）方法可将项目添加到组合框中。 【 D 】 A、List B、ListIndex C、Add D、 AddItem 25. 下列（ ）语句使复选框Check1无效。 【 B 】 A、 Check1.Value = 1 B、 Check1.Value = 2 C、 Check1.Style = 1 D、 Check1.Style = 0 26. 触发文本框Change事件的操作是（ ）。 【 A 】 A、 改变文本框的内容 B、 改变文本框的大小 C、 文本框获得焦点 D、 文本框失去焦点 复习题 第3页 共6页
二、判断改错题（判断下列各题，正确的在题后括号内打“√”，错误的打“×”，并改正错误）。
1、对于Visual Basic中的多窗体程序，如不指定启动窗体，会随机选择启动一个窗体。【 × 】不会 2、在默认情况下，InputBox的返回值是一个字符串。【 √ 】 3、计时器控件的Interval属性设为1000，Enabled属性设为False，则每隔1秒的时间就产生一次Timer事件。【 × 】“False”改为“True” 4、将组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。【 √ 】 5、函数过程必须用关键字Private声明。【 × 】可以申明为Public。 6、块If结构中的End if可以缺省。【 × 】不可以 7、要让控件隐藏起来，处于不可见的状态，可修改其enabled属性。 【 × 】改为Visible
三、阅读程序填空题 1、要求下面代码段中的循环体执行3次。 Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)
Handles Button1.Click Dim x as integer x = 1 Do While ___7____ x = x + 2 Loop End Sub 2、下列程序用于求S=1+3+32+33+…+310的值。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click Dim s As integer,t As integer,i As integer s=___1___ 复习题 第4页 共6页
For i=1 to 10 t=__3^i___ s=s+t Next i Lable1.text= ＂s=＂& s End Sub 3、下面程序段是将列表框ListBox1中重复的项目删除，只保留一项。 Dim i,j As Integer For i=0 To ListBox1.Items.Count-1 For j=ListBox1.Items.Count-1 To __i+1__ Step -1 If ListBox1.Items(i)=ListBox1.Items(j) Then __ListBox1.Items.RemoveAt(j)__ End If Next j Next i 4、输入一个数，判断其为偶数还是奇数，并用消息框显示出结果，如“您输入的数2是偶数”。
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles MyBase.Click Dim X As Integer Dim Y As String X = InputBox("请输入X的值:") __ IF X MOD 2=0 THEN Y="是偶数" ELSE Y="是奇数"__ MsgBox("您输入的数" & X & Y) End Sub
5、找出被3、5、7除，余数为1的最小的5个正整数。 Sub Button1_Click(......) Handles Button1.Click 复习题 第5页 共6页
Dim CountN% , n% CountN=0 n=1 Do n=n+1 If _n mod 3=1 and n mod 5=1 and n mod 7=1_ Then MsgBox(n) countN=CountN+1 End If Loop __ while countn<5__ End Sub 6、输入任意长度的字符串，要求将字符顺序倒置。例如，将输入的“ABCDEFG”变换成“GFEDCBA”。 Sub Button1_Click(......) Handles Button1.Click Dim a$, I%, c$, d$ a=InputBox$(“输入字串”) d=”” For I=__ len(a)__ To1 Step -1 c=Mid(a,I,1) d=d&__c__ Next I MsgBox(d)
End Sub
四、名词解释题 1、解释什么是属性,事件和方法。 属性：属性是对对象特性的描述，不同的对象有不同的属性。 事件：事件是由Visual Basic 6.0预先设置好的，能够被对象识别的动作。 方法：方法是指控制对象动作行为的方式，是对象包含的函数或过程。 2、创建VB应用程序的四个步骤。 （1）在窗体上建立对象；（2）设置对象的属性；（3）编写对象事件过程；（4）保存和运行程序。 3、过程 为了简化程序设计，通常将程序分割成较小的逻辑部件，这些部件称为过程。在Visual Basic中，过程分为SUB过程和FUNCTION过程。所有的可执行代码都必须属于某个过程。SUB过程可以放在标准模块或窗体模块中。过程的定义是平行的，不能在过程中定义其他过程。 4、编译错误