VB考前辅导班模拟试卷1
10vb模拟测试卷1(答案)
10vb模拟测试卷满分：80分姓名：________1、单项选择题(本题共计40分)1、执行以下程序，在窗体上显示的第一行内容是______,第二行内容是_________。
Private Sub Command1_Click()Dim x%, y%x = 10y = 15Call value(x, y)Print "x="; x, "y="; yEnd SubPrivate Sub value(ByVal m%, n%)m = m * 2n = n - 5Print "m="; m, "n="; nEnd Sub ( )A、m=20 n=10B、x=10 y=15C、x=20 y=102、若整型实参x、y的值分别为48、28，则引用以下function过程的返回值是________。
Private Function f(ByVal m%, ByVal n%) As IntegerDor = m Mod nm = nn = rLoop While r <> 0f = mEnd Function ( )A、1B、2C、4D、都不是3、关于语句If x=1 Then y=1，下列说法正确的是________。
( )A、x=1和y=1均为赋值语句B、x=1和y=l均为关系表达式C、x=1为关系表达式，y=1为赋值语句D、x=1为赋值语句，y=l为关系表达式4、VB也提供了结构化程序设计的三种基本结构，这三种基本结构是________。
( )A、递归结构、选择结构、循环结构B、选择结构、过程结构、顺序结构C、过程结构、输入\输出结构、转向结构D、选择结构、循环结构、顺序结构5、假设boolVar是一个逻辑型变量，则下面的赋值语句正确的是________。
( )A、boolVar='True'B、boolVar=.True.C、boolVar=#True#D、boolVar=3<46、在Cmdl_C1ick事件中有效的地址传递的调用语句是Public Sub Fl(n%)……n =3*n+4……End SubPrivate Sub Cmdl_Click()Dim n%, m%n=3 :m =4'调用F1语句End SubA、.F1 n+m .B、F1 mC、F1 5D、F1 m+57、程序中用“Private Function Fun(X As Integer,Y As Single)”定义了函数Fun。
VB模拟试卷和答案
北京语言大学网络教育学院《VB 〉模拟试卷一1. 试卷保密，考生不得将试卷带出考场或撕页，否则成绩作废。
请监考老师负责监督。
2. 请各位考生注意考试纪律，考试作弊全部成绩以零分计算。
3. 本试卷满分100分，答题时间为90分钟。
4. 本试卷分为试题卷和答题卷，所有答案必须答在答题卷上，答在试题卷上不给分。
一、【单项选择题】（本大题共20小题，每小题2分，共40分）在每小题列出的四个选 项中只有一个选项是符合题目要求的，请将正确选项前的字母填在 答题卷相应题号处1、关于VB 的特点描述错误的是（ ）。
[A] VB 编程是可视化编程 [C]不可以访问数据库2、下面关于鼠标的指针设置说法不正确的是（ [A] 可以使用Mouselcon 设置鼠标的形状 [B] 可以使用MousePo in ter 设置鼠标的形状[B]是面向对象的程序设计 [D]采用事件驱动编程机制）。
[C] MousePointer 设为 99 时，可用 [D] MouseIcon 只能通过属性窗口选择鼠标形状3、 Dim Snow （ 1 to 12 ， 1），As Integer [A]13*2 [B] 13*14、 在工具箱里的都是（）。
[A]标准控件 [C] ActiveX 控件5、 一个窗体大小改变时被触发的事件是（ [A] Click 事件 [C] Initialize 事件6、 下列关于控件说法不正确的是（ [A] Age nt 控件用于设置动画行为[B] TextBox 用于接收用户输入的信息 MouseIcon 设置鼠标的形状是大小为（）的二维数组。
[C] 12*2 [D] 12*1[B]外部控件[D] 可插入对象（OLE ））。
[B] Resize 事件 [D] Un load 事件）。
组，当框架移动时，其中的控件不移动 [D] ListBox 向列表中添加一个新的项目 7、关于CheckBox 控件描述错误的是（ [A] 是复选框按钮，用"表示选中 [C] Value 为1表示选中该框 &关于Shape 控件描述正确的是（ [A] 用于向窗体添加矩形、圆形等图形 [C] Arial 用于设置显示控件的形状9、下面不属于循环控制语句的是（ ）。
VB第一套模拟练习题+复习指导思想.doc
期末考试题型主要包括以下几种，本试卷不具有任何代表性，大家自己找两 小时时间做完，给自己打个分。
复习思路已经列在本试卷的下方，认真准备。
考试试卷是从10名老师所出的10份试卷中随机抽取题目组卷，10人互相 不清楚对方出了哪些题目。
一、选择题（每小题1分，期末考试共20小题）10、文本框控件的名称和Text 属性的缺省值分别为（）。
A. Textl, TextB. Text, TextlC. Text, Text11、 语句Open "test. dat 〃 For Append As #5的功能说明中错误的是（）。
A. 打开顺序文件气est.dat",文件指针指示在文件末尾B. 如果文件"test.dat"不存在，则建立一个新文件C. 如果文件气est.dat 〃已存在，则打开该文新写入的的数据将覆盖原有的数据D. 如果文件"test. dat /z已存在，则打开该文新写入的的数据将添加到文件的后面12、 V B 过程调用语句中的实参数必须与过程说明中的形式参数在（）上保持一致。
A.个数、类型、名称 B.个数、类型、顺序C.个数、顺序、名称D.个数、格式、顺序1、 2、 3、窗体的Name 属性为Frm,它的Load 事件过程名是（ A. FormLoad 表达式TNT （RNDA. [11, 110] 将命令按钮的（ D. Me Load 4、 5、 6、 7、 8、 9、B. FormlLoadC. FrmLoad * 11） + 100的值的范围是（）o B. [100, 110]C. [11, 100]）屈性设置为True,当用户按下【EnteC 键时可以激发对应命令按 钮的Click 事件。
A. NameB. EnableC. Default Visual Basic 规定标准模块文件的扩展名是（）。
A.・ form 使用（）方法， A. Additem x + y 小于15, A. x+y<15 or C. x+y<15 andB. frm C- vbp 可向列表框屮的添加列表项。
VB模拟试题一
VB模拟试题一一、选择题1．工程文件的扩展名是（）A．.vbg B．。
vbp C．.vbw D．。
vbl2．一个窗体中带图片框控件（已装入图像）的VB应用程序从文件上看，至少应该包括的文件有（）A．窗体文件（。
frm)、项目文件（.vbp/vbw）B．窗体文件（。
frm）、项目文件（。
vbp/vbw）和代码文件（。
bas)C．窗体文件（.frm)、项目文件（。
vbp/vbw)和模块文件(。
bas）D．窗体文件（.frm）、项目文件（.vbp/vbw）和窗体的二进制文件（。
frx）3．以下关于窗体描述正确的是（）A．只有用于启动的窗体可以有菜单B．窗体事件和其中所有控件事件的代码都放在窗体文件中C．窗体的名字和存盘的窗体文件名必须相同D．开始运行时窗体的位置只能是设计阶段时显示的位置4．VB中控件主要分为3类,下面哪一种不是VB中的控件类（)A．标准控件B．ActiveX C．可插入控件D．外部控件5．在VB的基本数据类型中,通用类型(Variant)可以表示任何类型的变量,如果有定义Dim a,则以下变量赋值中正确的是（）A．a=”OK”B．A＄=OK C．a=04/01/2001 D．a＄=”OK”6．在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码：Private Sub Command1_Click( )A=1。
2C=Len(Str＄（A)+Space（10))Text1.text=CEnd Sub程序运行后，单击命令按钮，在文本框中显示（）A．3 B．8 C．14 D．107．在MsgBox函数中哪一个参数是必须的（）A．prompt B．buttons C．title D．context8．以下语句的输出结果是（）Print Format＄（1234.5,”00,000。
00”)A．1234。
5 B．01，234.50 C．01,234.5 D．1,234.509．有如下语句：Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu。
VB考试题模拟卷（参考答案）
VB考试题模拟卷（参考答案）上海交通⼤学基础医学院⼆010年～⼆011学年第⼀学期 10 级专业VB程序设计课程模拟试卷考试⽇期2010.12 ⼤班⼩班姓名学号1、在E盘中的根⽂件夹创建⼀个⼦⽂件夹，新⽂件夹名称为⾃⼰的学号、姓名和“考试”；例如：“5078058001-李⽂海-考试”。
2、要求编程题在上述⽂件夹中保存两个⽂件(窗体⽂件：李⽂海．frm和⼯程⽂件李⽂海．vbp)。
3、将上述⽂件夹上传到⽼师⽹盘上相应班级的⽂件夹中。
⼀、选择题（10分，正式试卷为10题）1、VB是⼀种⾯向对象的可视化程序设计语⾔，采取了____的编程机制。
A、事件驱动B、过程驱动C、函数驱动D、模块驱动2、在VB中____是⼀个特例，它既是类也是对象。
A、命令按钮B、⽂本框C、标签D、窗体3、多窗体程序是由多个窗体组成。
在缺省情况下，VB在应⽤程序执⾏时，总是把____指定为启动窗体。
A、包含控件最多的窗体B、设计时的第⼀个窗体C、含有Form_Load过程的窗体D、命名为Form1的窗体4、VB集成开发环境具有三种⼯作模式，以下____是使⽤最多的VB⼯作模式。
A、编辑B、设计C、运⾏D、中断5、有⼀程序代码：Text1.FontSize = ”宋体”，其中Text1、FontSize和”宋体”分别代表的是____。
A、对象、⽅法、属性B、对象、属性、值C、属性、对象、值D、对象、值、属性6、不具备Caption属性的对象是____。
A、⽂本框B、标签框C、命令按钮D、多选框7、VB是⼀种⾯向对象的程序设计语⾔，____不是⾯向对象系统所包含的三个要素。
A、变量B、事件C、⽅法D、属性8、不具备Text属性的对象是____。
A、⽂本框B、图⽂框C、组合框D、列表框9、当启动程序时，系统⾃动执⾏的是____事件过程。
A、Form_ClickB、Form_LoadC、Command_ClickD、Text1.Change10、表达式Int (19 / 3) +5 ^ 2 * 8 Mod 10 \ 3的值是____。
VB模拟题及参考答案
VB复习题一一、判断题：(每小题1分，共20分。
请将答案涂在答题卡上，正确的涂A，错误的涂B）1.Visual Basic 6.0工作模式有3种：它们是设计、运行和调试。
（）2.标签支持Dblclick事件。
（2 ）3.窗体中控件的位置由Height和Top属性确定。
（3 ）4.滚动条的SmallChange属性设置为5时，表示单击滚动条两端的箭头时变化为5. （4 ）5.当把定时器控件的Visible属性设置为True时，运行时定时器在窗体上就可见了。
（5 ）6.Vbred是Visual Basic 6.0允许的常量。
（6 ）7.#25/6/2018#是Visual Basic 6.0合法的日期型常量书写。
（7 ）8.逻辑运算符Not的优先级比Or高。
（8 ）9.Visual Basic 6.0中可以用print做变量名。
（9 ）10.表达式5 mod 4与5\4的结果相同。
（10 ）11.语句if x>=60 and x<70 then print ”及格”是正确的。
（11 ）12.有select case 语句必须有End select语句与之相匹配。
（12 ）13.Exit for是Do循环的一个出口。
（13 ）14.选择结构与循环结构可以相互嵌套，并且允许交叉嵌套。
（14 ）15.Visual Basic 6.0中，Dim a(-5 to 5) as single 是正确的数组定义。
（15 ）16.可以用Ubound()函数返回数组下标的下界。
（16 ）17.过程体内可以再定义另外一个过程。
（17 ）18.实参是变量，且过程定义时与其对应的形参用Byval关键字加以限制是地址（引用）传递。
（18 ）19.用Output模式打开文件，如果指定的路径不存在，则会自动先创建指定的路径，然后再创建文件。
（19 ）20.Visual Basic 6.0中，文件号最大可取的值是511。
VB复习题(带答案)(1)
VB复习题(带答案)(1) LtD程序填空1、'功能：要求输入假设干学生的成绩，计算平均分和高于平均分的人数，并将这两个数据放入数组的最后。
Private Sub Form_Click()Dim mark() As Integer, i%, n%, avern = InputBox("输入学生的人数")ReDim mark(1 To n)aver = 0For i = 1 To nmark(i) = Int(Rnd * 101)aver = aver + mark(i)Next i'**********SPACE********** preserveReDim 【?】mark(1 To n + 2) '增加两个元素,存放平均分和高于平均分的人数,原来的学生成绩仍保存mark(n + 1) = aver / nmark(n + 2) = 0For i = 1 To n'**********SPACE**********If mark(i) > mark(【?】) Then mark(n + 2) = mark(n + 2) + 1 n+1Next iFor i = 1 To nPrint "mark("; i; ")="; mark(i)Next iPrint "平均分="; mark(n + 1), "高于平均分人数="; mark(n + 2)End Sub2、功能：以下程序的功能如(图1)。
Private Sub Form_Click()Dim a%, b%, c%, d!, x1, x2, p, q, ra = InputBox("请输入a的值")b = InputBox("请输入b的值")c = InputBox("请输入c的值")d = b * b - 4 * a * cp = -b / (2 * a)If d >= 0 Then'**********SPACE**********If 【?】Then d>0r = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p'**********SPACE**********【?】end ifPrint "x1="; x1, "x2="; x2'**********SPACE**********【?】elseq = Sqr(-d) / (2 * a)Print "x1="; p; "+"; q; "i", "x2="; p; "-"; q; "i"End IfEnd Sub3、功能：以下程序用于判断一个正整数〔≥3〕是否为素数。
VB考前辅导班模拟试题
VB考前辅导班模拟试题试题一（在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name 属性为Command1），然后编写如下事件过程：Private Sub Command1_Click()x=0Do Until x > = 50x= (x + 4)*(x + 3)n= n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）A)1 和 0 B)2 和240C)3 和 50 D)4 和168参考答案：B试题二在窗体上画一个名称为Command1的命令按钮，编写如下程序：Private Sub Command1_Click()Print pl(3,7)End SubPublic Function pl(x As Single,n As Integer) As SingleIf n=0 Thenpl=1ElseIf n Mod 2=1 Thenpl=x*x+nElseP1=x*x-nEnd IfEnd IfEnd Function程序运行后，单击该命令按钮，屏幕上显示的结果是（）A)2 B)1C)0 D)16参考答案：D试题三读下列程序：Private Sub Form_Click()Static x(4) As IntegerFor i = 1 to 4x(i) =x (i) + i * 3Next iPrintFor i = 1 to 4print "x("；i；") ="；x(i)Next iEnd Sub该程序在运行了三次后，其最终结果是：参考答案：x(1)=9 x(2)=18 x(3)=27 x(4)=36试题四有如下程序：Private Sub Form_Click()Dim check As Boolean, n As Integercheck=Falsen= 0DoDo While n< 10n=n + 1If n= 5 Thencheck=TrueExit DoEnd IfPrint n；LoopLoop Until check=TrueEnd Sub程序运行后，输出的结果是（）A)1 2 3 B)1 2 3 4C)1 2 3 4 5 D)1 2 3 4 5 6参考答案：B试题五在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A) 10 5 B) 12 5 C) 10 7 D) 12 7参考答案：D试题六执行下面的程序，单击Command1按钮时，列表框中显示的第一行是________，第二行是_________，第三行是________。
VB模拟试卷参考答案
计算机等级考试二级VB模拟试卷(一)杭州师范学院钱江学院计算机等级考试二级VB模拟考试参考答案一、计算机基础题（共15分）二、VB程序设计（共85分）（四）程序阅读题（20分，每题4分）1、4 5 62、101103、1 9 8 7 6 5 4 3 2 101 7 6 5 4 32 8 9 104、1 4 65、wFg,C4d5（五）程序设计题（25分，题1为5分）1、Public Function g(x As Single, eps As Single) As SingleDim e&, t!, i%If x < -1 Or x > 1 Theng = 0Elsee = 1i = 1Doe = e * it = (i + x) / eg = g + ti = i + 1Loop Until t < epsEnd IfEnd Function2、Private Sub Form_Click()Dim a(1 To 50) As Integer, i%, s!For i = 1 To 50a(i) = Val(InputBox("请输入一个数")) Next is = 0For i = 1 To 50s = s + a(i)Next is = s / 50Open "g:\data.txt" For Output As #1For i = 1 To 50If a(i) > s Then Print #1, a(i)Next IClose #1End Sub3.Dim n%Private Sub Command1_Click()n = Val(InputBox("输入要计时的秒数")) Timer1.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Form_Load()Form1.Caption = "到计时牌"Command1.Caption = "设置"Timer1.Interval = 1000Timer1.Enabled = FalseLabel1.Caption = "计时"End SubPrivate Sub Timer1_Timer()n = n - 1h = n \ 3600m = (n Mod 3600) \ 60s = n Mod 60Label1 = "还剩" & h & "小时" & m & "分" & s & "秒" If n = 0 ThenTimer1.Enabled = FalseLabel1 = "时间到！"Command1.Enabled = TrueEnd IfEnd Sub。
VB模拟试题试及参考答案
VB模拟试题试及参考答案2016VB模拟题第⼀套单项选择题得分：1: 计算机的基本⼯作原理是__C______。
A. 可靠性与可⽤性B. ⾼速度与⾼精度C. 存储程序与程序控制D. 具有记忆功能2: 计算机中数据的表⽰形式是____A____。
A. ⼆进制B. ⼋进制C. ⼗进制D. ⼗六进制3: 电⼦邮件标识中带有⼀个“别针”，表⽰该邮件_____C_。
A. 设有优先级B. 带有标记C. 带有附件D. 可以转发4: 安装防⽕墙的主要⽬的是__C______。
A. 提⾼⽹络的运⾏效率B. 对⽹络信息进⾏加密C. 保护内⽹不被⾮法⼊侵D. 防⽌计算机数据丢失5: 淘宝⽹的⽹上购物属于计算机现代应⽤领域中的___C___。
A. 计算机辅助系统B. 电⼦政务C. 电⼦商务D. 办公⾃动化6: Visual Basic中标准模块⽂件的扩展名是____D__。
A. FrmB. VbpC. ClsD. Bas7: 启动程序时，系统⾃动执⾏启动窗体的___A___事件过程。
A. LoadB. UnloadC. ClickD. DblClick8: 下列_____C_⽅法可以显⽰窗体。
A. HideB. UnLoadC. ShowD. WindowState9: 已知a="123456789"，则表达式Mid(a, 5, 2) + Left(a, 2)的值是_____B___。
A. "5689"B. "5612"C. 68D. 125610: 下列不正确的赋值语句是__C____。
A. x=30-yB. y=x+30C. x+y=30D. y=x\311: 下列选项中，合法的变量名是_B______ 。
A. 1_xB. x_1C. x-1D. x 112: 下列选项不是Visual Basic基本数据类型的是______A__。
A. CharB. StringC. BooleanD. Double13: 在下列表达式中，正确的⽇期型常量是__D____ 。
vb模拟题01-60(女)
1、标签数组、select语句
2、图片框、对话框
1、文本框、数组、文件、for循环
50
1、命令按钮
2、命令按钮、窗体
1、文本框、列表框、for循环、if语句
2、滚动条、文本框、if语句
1、文件、数组、for循环
基本操作题
简单应用题
综合应用题
51
1、文本框
2、标签、文本框（password的设置）
56
1、列表框
2、图片框
1、文本框、if语句
2、文本框、垂直滚动条、if语句
1、列表框、垂直滚动条、文件、for循环
57
1、标签、复选框数组
2、标签、命令按钮
1、文本框、函数、文件、if语句
2、For循环、列表框
1、文本框、单选按钮、文件、for循环
58
1、水平滚动条、标签
2、命令按钮
1、文本框、列表框
2、菜单
1、文本框、复选框、命令按钮、if语句
2、计时器
1、文本框、数组、文件
54
1、列表框、水平滚动条
2、命令按钮
1、框架、标签、文本框、if语句
2、标签、命令按钮、文件
1、数组、文件、for循环
55
1、命令按钮
2、文本框、命令按钮
1、水平滚动条、标签
2、列表框、文本框、for循环、if语句
1、文本框、函数、do while loop循环、if语句
08
1、文本框、命令按钮
2、图片框
1、数组、文本框、命令按钮
2、列表框、文本框、命令按钮
1、文件、标签
09
1、复选框
2、计时器控件
1、数组、过程函数、文本框
vb模拟题1
11.在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。
程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是A、Private Sub Text1_Change()Command1.Caption = "计算机等级考试"End SubB、Private Sub Command1_Click()Caption = "计算机等级考试"End SubC、Private Sub Form_Click()Text1.Caption = "计算机等级考试"End SubD、Private Sub Command1_Click()Text1.Text = "计算机等级考试"End SubA B C D a12.设a=5，b=4，c=3，d=2，下列表达式的值是3>2*b Or a=c And b<>c Or c>dA、1B、TrueC、FalseD、2A B C D b13.设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是A、b=Left(a,10)B、b=Mid(a,10)C、b=Right(a,10)D、b=Mid(a,11,10)A B C D b14.假定有如下的窗体事件过程：Private Sub Form_Click()a$ = "Microsoft VisualBasic"b$ = Right(a$, 5)c$ = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是A、Microsoft VisualB、MicrosoftC、BasicD、5A B C D c15.设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为A、"a"B、"b"C、"B"D、"A"A B C D16.为了使命令按钮（名称为Command1）右移200，应使用的语句是A、Command1.Move -200B、Command1.Move 200C、Command1.Left = Command1.Left + 200D、Command1.Left = Command1.Left - 200A B C D d17.在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox("请输入一个整数")Print x + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为A、123B、456C、579D、123456A B C D c18.在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。
VB辅导前半部分(测试题)
15
计算机中心2008秋计算机等级考试辅导
测试题2007秋
三次单击并分别输入7，8，9，则f，m的值是？
Dim m As Integer Private Sub Command1_Click() Dim a As Integer, i As Integer, f As Integer a = InputBox("a=") f = 1: i = 2 While i <= a / 2 If a Mod i = 0 Then f = f + i i=i+1 m=m+1 Wend Cls Print f, m End Sub
1 A、rnd*99 B、10+rnd*90 C、rnd*100 D、int(rnd*100) 、 、 、 、 2 A、i i B、n-1 C、i-1 D、n 、 、 、 3 A、break B、exit sub C、j=j-1 D、exit for 、 、 、 4 A、j>i B、j<=i C、x<>a(i) D、j<>i 、 、 、
11
输入 结果 4,6 15,10 4,10 三次单击后K?
计算机中心2008秋计算机等级考试辅导
12
08秋运算结果12分 Private Function f(x() As Integer, m As Integer) As Boolean Dim i As Integer, j As Integer For i = 1 To m If x(i) < 60 Then Exit For Next i If i <= m Then f = True Else f = False If f Then For j = i To m - 1: x(j) = x(j + 1): Next j m=m-1 End If End Function Private Sub Command1_Click() Dim i As Integer, n As Integer, a(8) As Integer a(1) = 76: a(2) = 56: a(3) = 87: a(4) = 43: a(5) = 46: a(6) = 94: a(7) = 52: a(8) = 88 n=8 While f(a, n) For i = 1 To n: Print a(i);: Next i Print Wend End Sub
vb等级考试模拟试卷1
VB考前辅导班模拟考试卷（较难）试题一（每小题2分，共8分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】过程JiSuan用于计算1-(1/2)+(1/3)-...+(1/99)-(1/100) 的值，并用消息框显示结果。
【程序】OptionExplicitPublicSubJiSuan()DimiAsInteger,sAsSingle:for (2)k=1/i:s=s+kk= (3) :s=s+kNexti(4)(1)EndSub【供选择的答案】（1）A、kasinteger B、dimkasinteger C、dimkassingle （2）A、i=1to100step2 B、i=100to1step-2C、i=1to100D、i=100to1step–1（3）A、1/i+1 B、-1/(i+1) C、-1/i+1（4）A、msgbox(“1-(1/2)+(1/3)-...+(1/99)-(1/100) 的和为：”&s)B、msgbox(“1-(1/2)+(1/3)-...+(1/99)-(1/100) 的和为：”+s)C、msgbox “1-(1/2)+(1/3)-...+(1/99)-(1/100) 的和为：”+sD、msgbox “1-(1/2)+(1/3)-...+(1/99)-(1/100) 的和为：”&sD、kassingle D、1/(i+1)试题二（每小题2分，共10分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】程序界面如下图所示，程序运行时要求有以下功能：1. 实现盘驱动器列表框drive1、目录列表框dir1、文件列表框file1 的联动。
2.文件列表框file1中仅显示txt文件。
3.当双击文件列表框file1中的某一文件时，删除该文件。
【程序】PrivateSubForm_Load()’下面一句代码,使文件列表框仅显示txt 文件(5)EndSubPrivateSubDrive1_Change()(6)EndSubPrivateSubDir1_Change()(7)EndSubPrivateSubFile1_dblClick()DimfsAsStringIf (8) Thenfs=File1.Path+File1.FileNameElsefs=File1.Path+"\"+File1.FileNameEndIf(9)MsgBox" 删除成功":File1.RefreshEndSub（5）A、file1.filter= ”*.txt”B、file1.pattern=”*.txt”C、file1.filter = ”txt文件|*.txt”D、file1.pattern=”txt文件|*.txt”（6）A、drive1.drive=dir1.path B、dir1.path=drive1.pathC、drive1.path=dir1.pathD、dir1.path=drive1.drive （7）A、file1.path=dir1.path B、dir1.path=file1.pathC、file1.path=drive1.driveD、file1.patttern=dir1.path（8）A、mid(file1.path,1,1)=””B、left(file1.path,1)= ””C、right(file1.path,1)=””D、file1.path=””（9）A、kill“fs”B、delfs C、killfs D、del“fs”试题三（每小题2分，共14分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
VB对口高考模拟试题1
《VB》对口高考模拟试题1一、选择题。
（每个1分，共30分）1、某一VB工程含F1、F2两个窗体，执行“F1．Show: F2．Hide”语句后，F1、F2窗体显示的结果为（）。
A、都显示B、都不显示C、仅显示F1窗体D、仅显示F2窗体2、删除列表框中指定的项目所使用的方法为（）A moveB removeC clearD removeitem3、Integer类型的变量可存放的最大整数是（）。
A、255B、256C、32768D、327674、下列符号不能作为VB中变量名的是（）。
A 、abcd B、p1234 C、89edf D、xyz5、将焦点主动设置到指定的控件或窗体上，应采用的方法是（）。
A、SetDateB、SetFocusC、SetTextD、GetGate6、若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（）。
A、Text属性值为*B、Caption属性值为*C、Password属性值为空D、Passwordchar属性值为*7、表达式10+10Mod3*3的值为（）。
A、11B、2C、13D、68、数学式子Sin25︒写成VB表达式是（）。
A、Sin25B、Sin（25）C、SIN（25︒）D、Sin（25*3.14/180）9．Sub过程与Function过程最根本的区别是（）。
A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。
B、Function过程可以有参数，Sub过程不可以。
C、两种过程参数的传递方式不同。
D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。
10、多窗体程序由多个窗体组体组成，在缺省的情况下，VB在执行应用程序时，总是将（）指定为启动窗口。
A、不包含任何控件的窗口B、包含控件最多的窗口C、命名为Form1的窗体D、设计时的第一个窗体11、要退出Do…Loop循环，可使用的语句是（）。
VB程序设计复习模拟试题一及答案
VB程序设计复习模拟试题一及答案一、选择题(1)执行语句Dim X,Y As Integer 后,（）A)X和Y均被定义为整型变量B)X和Y均被定义为变体类型变量C)X被定义为整型变量,Y被定义为变体变量D)X被定义为变体类型变量,Y被定义为整型变量(2)以下关系表达式中，其值为True的是A)"XYZ">"XYz" B)"VisualBasic"<>"visualbasic"C)"the"="there" D)"Integer"<"Int"(3)执行以下程序段a$="Visual Basic Programming"b$="C++"C$=UCase(Left$(a$,7)) & b$ & Right$(a$,12)后,变量C$的值为A)Visual BASIC Programming B)VISUAL C++ ProgrammingC)Visual C++ Programming D)VISUAL BASIC Programming(4)下列叙述中正确的是A)MsgBox语句的返回值是一个整数B)执行MsgBox语句并出现信息框后,不用关闭信息框即可执行其他操作C)MsgBox语句的第一个参数不能省略D)如果省略MsgBox语句的第三个参数(Title),则信息框的标题为空(5)在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数,以下可以实现上述操作的事件过程是A)Private Sub Text1_Change()Label1.Caption=str(Len(Text1.Text))End SubB)Private Sub Text1_Click()Label1.Caption=str(Len(Text1.Text))End SubC)Private Sub Text1_Change()Label1.Caption=Text1.TextEnd SubD)Private Sub Label1_Change()Label1.Caption=str(Len(Text1.Text))End Sub(6)在窗体上画两个单选按钮(名称分别为Option1,Option2,标题分别为"宋体"和"黑体"),1个复选框(名称为Check1,标题为粗体)和1个文本框(名称为Text1,Text属性为"改变文字字体")，窗体外观如图所示。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB考前辅导班模拟考试卷试题一（每小题2分，共8分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】过程JiSuan用于计算1-(1/2)+(1/3)-...+(1/99)-(1/100)的值，并用消息框显示结果。
【程序】Option ExplicitPublic Sub JiSuan()Dim i As Integer, s As Single : (1)for(2)k = 1 / i : s = s + kk =(3) : s = s + kNext i(4)End Sub【供选择的答案】（1）A、k as integer B、dim k as integer C、dim k as single D、k as single （2）A、i = 1 to 100 step 2 B、i = 100 to 1 step -2C、i = 1 to 100D、i = 100 to 1 step –1（3）A、1/i+1 B、-1/(i+1) C、-1/i+1 D、1/(i+1)（4）A、msgbox(“1-(1/2)+(1/3)-...+(1/99)-(1/100)的和为：” & s)B、msgbox(“1-(1/2)+(1/3)-...+(1/99)-(1/100)的和为：” + s)C、msgbox “1-(1/2)+(1/3)-...+(1/99)-(1/100)的和为：” ,sD、msgbox “1-(1/2)+(1/3)-...+(1/99)-(1/100)的和为：” , s试题二（每小题2分，共10分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】程序界面如下图所示，程序运行时要求有以下功能：1.实现盘驱动器列表框drive1、目录列表框dir1、文件列表框file1的联动。
2.文件列表框file1中仅显示txt文件。
3.当双击文件列表框file1中的某一文件时，删除该文件。
【程序】Private Sub Form_Load()’下面一句代码,使文件列表框仅显示txt文件(5)End SubPrivate Sub Drive1_Change()(6)End SubPrivate Sub Dir1_Change()(7)End SubPrivate Sub File1_dblClick()Dim fs As StringIf (8) Thenfs = File1.Path + File1.FileNameElsefs = File1.Path + "\" + File1.FileNameEnd If(9)MsgBox "删除成功" : File1.RefreshEnd Sub（5）A、file1.filter=”*.txt”B、file1.pattern=”*.txt”C、file1.filter=”txt文件|*.txt”D、file1.pattern=”txt文件|*.txt”（6）A、drive1.drive=dir1.path B、dir1.path = drive1.pathC、drive1.path =dir1.pathD、dir1.path = drive1.drive （7）A、file1.path=dir1.path B、dir1.path = file1.pathC、file1.path =drive1.driveD、file1.patttern = dir1.path （8）A、mid(file1.path,1,1)=”\”B、left(file1.path,1)=”\”C、right(file1.path,1)=”\”D、file1.path=”\”（9）A、kill “fs”B、del fs C、kill fs D、del “fs”试题三（每小题2分，共14分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】第一次单击窗体，生成十个[10,99]之间的随机整数，并显示在窗体上。
第二次单击窗体，将前面生成的十个随机整数进行排序，并显示在窗体上。
效果如上图所示。
【程序】(10)Dim a(1 To 10) As BytePrivate Sub Form_click()Dim i As IntegerIf (11) ThenClsPrint "排序前数据:";For i = 1 To 10a(i) = (12)Print a(i);Next iPrint : secClick = TrueElse(13)Print "排序后数据:";For i = 1 To 10Print a(i);Next iPrint : secClick = FalseEnd IfEnd SubPrivate Sub sortArray((14) , n As Integer)Dim i As Integer, j As Integer, t as byteFor i = 1 To n - 1For j =(15)If x(i) > x(j) Then(16)End IfNext jNext iEnd Sub（10）A、’定义数组B、dim secClick as boolean C、secClick=true D、cls（11）A、not secClick B、secClick=true C、secClick = -1 D、secClick （12）A、int(rnd*91)+10 B、int(rnd(90))+10 C、int(rnd(91)+10) D、fix(rnd*90)+10 （13）A、sortArray(a, 10) B、sortArray a, 10 C、sortArray a(10) D、sortArray 10,a （14）A、x() as integer B、x as byte C、x(10) as byte D、x() as byte （15）A、1 to n - i B、i to n - 1 C、i + 1 to n D、i +1 to n -1（16）A、t = x(j) : x(j) = x(i) : x(i) = t B、t = x(i) : x(j) = x(i) : x(j) = tC、x(i) = t : t = x(j) : x(j) = x(i)D、x(j) = t : t = x(i) : x(i) = x(j)试题四（每小题2分，共16分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】自定义函数DTOB实现将十进制整数转换为字符串形式的二进制数。
【程序】Private Sub Form_click()Static k As IntegerDim x As Integerx = x + 2 : k = k + xOpen "c:\result.txt" For Output As 1Print #1, DTOB(x);Print #1, xPrint #1, DTOB(k);Print #1, kClose #1End Subprivate Function DTOB(ByV al n As Integer) As StringDim s As String, c As StringWhile (17)c = (18)s = c + s : n = (19)Wend(20)End Function（17）A、n<=0 B、n=1 C、n>0 D、n<>1（18）A、chr(n \ 2) B、trim(str(n mod 2)) C、trim(str(n \ 2)) D、val(n mod 2) （19）A、n = n \ 2 B、n = n / 2 C、n = n mod 2 D、n = n - 2（20）A、s = DTOB B、DTOB(n) = s C、Print s D、DTOB = s（21）单击窗体两次后，文件C:\result.txt中的内容是什么？A、10 2B、10 2C、“10”,2D、“10” 2100 4 10 2 “10”,4 “10”2（22）其它代码不变，仅将程序中的print全部换为write，单击窗体两次后，文件C:\result.txt中的内容是什么？A、10 2B、10 2C、“10”,2D、“10” 2100 4 10 2 “100”,4 “10”2（23）其它代码不变，仅将函数DTOB的形参定义由Byval n as integer换成n as integer，单击窗体两次后，文件“C:\result.txt”中的内容是什么？A、10 2B、10 0C、“10”,2D、“10”010 2 10 0 “100”,4 “10”0（24）其它代码不变，仅将打开文件语句中的output改为append，单击窗体两次后，文件C:\result.txt中的内容是什么？A、10 2B、10 2C、“10”,2D、“10” 210 2 100 4 “100”,4 “10”410 2 “10” 2100 4 “100” 4试题五（每小题2分，共10分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】“字体修饰”程序界面如上图所示，程序运行时要求有以下功能：1.“字体”框架中的三个单击按钮分别为option1(0)、option1(1)、option1(2)，单击任一单选按钮，实现对标签控件label1字体的设置；2.单击复选框控件check1，若复选框控件被选中，则将命令按钮command1（标题为“选择颜色”）设置为可用，否则设置为不可用。
3.若命令按钮command1可用，则单击command1将显示“颜色”对话框，可实现对标签label1上文字颜色的设置。
【程序】Private Sub Check1_Click()Dim k As BooleanIf(25) Then k = True Else k = False(26)End SubPrivate Sub Command1_Click()(27)Label1.ForeColor = (28)End SubPrivate Sub Option1_Click(Index As Integer)Label1.FontName = (29)End Sub（25）A、check1.value B、check1.value=0 C、check1.value=false D、check1.value=2 （26）A、command1.visible = k B、command1.cancel = kC、command1.enabled = kD、command1.default = k（27）A、commondialog1.showopen B、commondialog1.showsaveC、commondialog1.showfontD、commondialog1.action = 3（28）A、commondialog1.ForeColor B、commondialog1.ColorC、commondialog1.BackColorD、commondialog1.FontColor（29）A、option1.caption B、option1(index).captionC、option1.fontNameD、option1(index).FontName试题六（每小题2分，共14分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。