华中科技大学2016秋VB模拟题(文科)

华科vb考试题库及答案1. 以下哪个选项是Visual Basic中的保留关键字？A. IntegerB. StringC. FunctionD. MyForm答案：C2. 在Visual Basic中，如何声明一个整型变量？A. Dim myVar As IntegerB. Declare myVar IntegerC. Var myVar IntegerD. Integer myVar答案：A3. Visual Basic中，哪个函数用于将字符串转换为数字？A. StrConvB. ValC. CStrD. CDbl答案：B4. 在Visual Basic中，如何实现循环直到满足特定条件？A. For...NextB. Do...LoopC. While...WendD. If...Then答案：B5. 如果需要在Visual Basic中创建一个用户界面，应该使用哪个工具？A. Code EditorB. Form DesignerC. Project ExplorerD. Properties Window答案：B6. 在Visual Basic中，如何为按钮控件编写事件处理程序？A. Private Sub Button1_Click()B. Public Sub Button1_Click()C. Protected Sub Button1_Click()D. Friend Sub Button1_Click()答案：A7. Visual Basic中，哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. ListBox答案：B8. 在Visual Basic中，如何声明一个数组？A. Dim myArray(10) As IntegerB. Dim myArray As Integer(10)C. Dim myArray = New Integer(10)D. Dim myArray(10, 10) As Integer答案：A9. Visual Basic中，哪个函数用于获取当前日期？A. NowB. DateC. TodayD. Time答案：C10. 在Visual Basic中，如何打开一个文件进行读取？A. Open "filename.txt" For Input As #1B. Open "filename.txt" For Output As #1C. Open "filename.txt" For Append As #1D. Open "filename.txt" For Random As #1答案：A。

模拟练习一第一部分计算机信息技术基础知识选择题（共20分，每题2分）1．IP地址通常分为固定IP地址和动态IP地址，目前国内大多数家庭上Internet网的用户的IP地址都是B的。

A．相同B．动态C．可以相同D．固定2．下列四个不同进位制的数中，数值最大的是B。

A．十进制数73.5 B．二进制数1001101.01C．八进制数115.1 D．十六进制数4C.43．下列关于台式PC机芯片组的叙述中，错误的是D。

A．芯片组是主板上最为重要的部件之一，存储器控制、I/O控制等功能主要由芯片组实现B．芯片组与CPU同步发展，有什么样功能和速度的CPU，就需要什么样的芯片组C．芯片组决定了主板上能安装的内存最大容量及可使用的内存条类型D．同CPU一样，用户可以很方便，很简单地更换主板上的芯片组4．路由器（Router）用于异构网络的互连，它跨接在几个不同的网络之间，所以它需要使用的IP地址个数为_D_。

A．1 B．2 C．3 D．所连接的物理网络的数目5．为了既能与国际标准UCS(Unicode)接轨，又能保护现有的中文信息资源，我国政府发布了_C汉字编码国家标准，它与以前的汉字编码标准保持向下兼容，并扩充了UCS/Unicode中的其他字符。

A．ASCII B．GB2312C．GB18030 D．GBK6．在下列有关通信技术的叙述中，错误的是C。

A．目前无线电广播主要还是采用模拟通信技术B．数字传输技术最早是被长途电话系统采用的C．数字通信系统的信道带宽就是指数据的实际传输速率(简称“数据速率”)D．局域网中广泛使用的双绞线既可以传输数字信号，也可以传输模拟信号7．在下列有关商品软件、共享软件、自由软件及其版权的叙述中，错误的是C。

A．通常用户需要付费才能得到商品软件的合法使用权B．共享软件是一种“买前免费试用”的具有版权的软件C．自由软件允许用户随意拷贝，但不允许修改其源代码和自由传播D．软件许可证确定了用户对软件的使用方式，扩大了版权法给予用户的权利8．下列有关Internet的叙述错误的是_A。

VB机试模拟试卷10(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上画两个文本框，名称分别为T1和T2，初始情况下都没有内容。

请编写适当的事件过程，使得运行时，在T1中输入的任何字符，立即显示在T2中，如图10-1所示。

程序中不得使用任何变量。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

(2)在名称为Form1的窗体上画一个文本框，名称为Text1；再画一个命令按钮，名称为C1，标题为“移动”，如图10-2所示。

请编写适当的事件过程，使得在运行时，单击“移动”按钮，则文本框水平移动到窗体的最左端如图10-3所示。

程序中不得使用任何变量。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

正确答案：(1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。

文本框的文本内容由Text属性设置。

题目要求在T1中输入任何字符时，立即在丁2中显示，这要用到文本框的Change事件。

当用户向文本框中输入新信息，或当程序把Text属性设置为新值从而改变文本框的Text属性，将触发Change 事件。

解题步骤：第一步：建立界面并设置控件属性。

程序用到的控件及其属性见表10-1。

第二步：编写程序代码。

参考代码：Private Sub T1_Change( ) T2.Text=T1.Text End Sub 第三步：调试并运行程序。

第四步：按题目要求存盘。

(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。

本题考查的是控件的位置改变，控件的位置由控件的Left 属性和Top属性决定，Left属性表示控件与所在窗体的左边之间的距离，Top属性表示控件与所在窗体的顶边之间的距离。

VB程序设计第一题题目：（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体上输出来。

将结果存入变量S中。

代码：Dim I As IntegerFor i = 2 To 50If (i Mod 2)=0 ThenS=s+iEnd IfNextPrint (CStr(s))第二题题目：（事件）双击窗体（响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As IntegerDim k As Longk=1s=0For i =1To 10For j=1 To ik=k*jNexts=s+kk=1NextPrint(CStr(s))第三题题目：（事件）单击窗体（响应）求100以内偶数的和，并将结果输出在窗体上。

将结果存入变量SUM中代码：Dim i As IntegerFor i =1 To 100If i Mod 2 =0 ThenSum=sum+iEnd IfNextPrint sum第四题题目：（事件）单击窗体（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。

将结果存入变量M中。

代码：Dim i,j As IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2s=s*jNextm=m+sNextPrint (CStr(m))第五题题目：（事件）双击窗体（响应）求100以内奇数的和，并将结果输出在窗体上。

将结果存入变量SUM中。

代码：Dim i As IntegerFor i=1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum第六题题目：（事件）单击窗体（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上代码：Dim s As SingleFor i=1 To 10a=i*iSum =1/a + SumNextPrint Sum第七题题目：（事件）双击窗体（响应）求1+1*2+1*2*3+....+1*2*3*. (10)并将结果存到变量S中代码：Dim s As Longj=1For i = 1 To 10j= j*iSum = Sum + jNextPrint Sum第八题题目：（事件）单击窗体（响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。

VB丸习越一一、判断(4小题1分，共20分。

请将答案涂在答瓯卡上，正确的涂A,措误的涂B)1.Visual Basic 6.0工作模式有3种：它们是没计、运行和调试。

()2.标签支持Dblclick事件。

(2 )3.窗体中控件的位置由Height和Top,同性确定。

(3 )4.滚动条的SmallChangeW性设置为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 ifi句与之相匹配。

(12 >13.Exit for 是Do 循环的一个出口。

( 13 )14.选择结构与循环结构可以相互散套，并且允许交叉嵌套•( 14 )15.Visual Basic 6.0 中，Dim a(-5 to 5) as single 是正确的数组定义.(15 )16.可以用Ubound。

函数返回数组卜,标的卜界M 16 )17.过程体内可以再定义另外一个过程。

< 17 )18.实参是变量，旦过程定义时与其对应的形参用Byval关键字加以PU制是地址(引用)传递。

(18 )19.用Output模式打开文件.如果指定的路径不存在，则会自动先创建指定的路径，然后再创建文件。

< 19 )20.Visual Basic 6.0中，文件号最大可取的但是511. ( 20 )二、单项选择题：(每小超1分，共30分。

2016学年第一学期高二年级（7、8班）VB科目9月月考试B卷
考试说明：考试时间为45分钟，按题目要求完成VB程序，实现题目描述功能。

创建好保存VB程序的文件夹，文件夹名：机号+姓名+学号B。

所有考试题目均创建在一个VB工程为“9月月考项目.vbp”中，在项目窗体上以按钮名称为题目一、题目二、题目三、题目四（如下图所示），最后将项目保存在该文件夹中，并生成可执行文件。

完成后按监考人员要求上传。

题目一：编写“题目二”按钮单击事件，在标签label2中显示2！+4！+6！+…+10!的值。

（25分）
题目二：编写“题目一”按钮单击事件，在标签label1中显示1+2+3+4+...+50的值。

（15分）
题目三：编写“题目四”按钮单击事件，随机产生50个200～300的随机整数，并在窗体上输出其中的所有素数，每行8个，并输出共有多少个？（30分）
题目四：假定小鸡每只5角；公鸡每只3元；母鸡每只5元。

现在有100元，要求买100只鸡，编写“题目三”按钮单击事件在窗体上列出所有可能的购鸡方案。

（30分）。

设计一个VB程序其功能：实施字幕滚动。

界面设计和运行效果如图1和图2所示1．（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到试题一的文件夹下。

2.（10分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）表13. （2）（4分）定时器间隔时间（interval）由滚动条事件决定，当拖动滚动块时来改变字符滚动速度；（3）（8）单击“开始”按钮，定时器工作且“停止”按钮显示，单击“停止”按钮，定时器不工作；（4）（7分）定时器事件是将标签2每隔一定时间始终从左向右以每200缇移动；将1.txt文件复制到相应的事件（1分）完成（1）（2）（3）填空（每格2分，共6分）4. （2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。

设计一个VB程序：有一张单据上有一个五位数的号码67**8，其中百位和十位上的数字看不清了，但知道该数能被78整除，也能被67整除，求出该号码。

运行结果图3所示。

图3打开某路径下试题二文件夹下工程文件test2.vbp，完成下列操作：1. （4分）打开工程文件3.vbp，设置填数字的控件属性：字体颜色为红色2．（14分）完善“填数字”事件（1）（2）（3）（4）（5）（6）（7）的代码，3. （2分）保存窗体文件和工程文件，生成可执行文件test2.exe保存到试题目录下的“试题二”文件夹。

试题三（20分）用VB设计一个成绩统计程序。

程序运行后，先后出现如下图4和图5的对话框，最后运行效果如图5所示。

1. （4分）当窗体启动时（2分），要求先输入需要统计的学生人数，输入时要有文字提示，如图4所示，再输入各学生分数，如图5所示；将3.txt文件复制到相应的事件中；完成（1）填空的代码（每格2空，共4分），调试程序，让程序正确执行。

2. （8分）单击“统计”按钮，统计出合格人数、不合格人数及平均分（保留1位小数）；完成相应的注释1、2、3、4填空，其中在注释3处添加一条代码。

2016学年第二学期物联网专业高一（6、7）VB期终试卷（A卷）班级：姓名：学号：第1题：序号操作项目操作要求分值得分1 题目要求设计一个“模拟选课程序”，界面如下。

要求：从左侧列表中选择一个科目，单击“>>”按钮，选择的项目将移动至右侧列表框中，同时该项目从左侧列表框中删除，其没有选中，则用消息框提示“请选中课程”。

从右侧列表框中选择一个项目，单击“<<”按钮，选择的项目将移动至左侧列表框中，同时该项目从右侧列表框中删除，其没有选中，则用消息框提示“请选中课程”；302 界面设计初始界面11没选中课程提示信息界面23 代码设计Command1事件（>>）正确代码及算法7Command2事件（<<）正确代码及算法74 文件保存将工程文件test1.Vbp和窗体文件test1.Frm及test1.exe保存在考生文件夹中3第2题：序号操作项目操作要求分值得分1题目要求VB程序的功能为：标签“火箭”位于窗体下侧，单击“移动”按钮，在“移动”按钮右侧出现“停止”按钮，同时标签向上垂直移动（每秒移动10次，每次向右移动150缇），当标签移动到窗体外侧不见时标签又从窗体下侧进入向上移动（水平位置不变）。

单击“停止”按钮标签停止运动，同时“停止”按钮不见。

282界面设计初始界面7运行界面 23代码设计Command1事件（移动）正确代码及算法 4Command2事件（停止）正确代码及算法 4Timer1事件正确代码及算法84文件保存将工程文件test2.Vbp和窗体文件test2.Frm及test2.exe保存在考生文件夹中3第3题：第4题（理论）：。

考试题型一、单项选择题（每题1分，共35分）二、判断题（每题1分，共15分；正确的打"，错误的打x。

）三、填空题（每空1分，共10分）四、读程序写出结果（每题5分，共20分）五、程序填空（每空2分，共10分）六、编程题（每小题10分，共10分）2006年4月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计11. 以下关于Visual Basic特点的叙述中，错误的是A）Visual Basic是采用事件驱动编程机制的语言B）Visual Basic程序既可以编译运行，也可以解释运行C）构成Visual Basic程序的多个过程没有固定的执行顺序D）Visual Basic程序不是结构化程序，不具备结构化程序的三种基本结构12. 以下叙述中，错误的是A）一个Visual Basic应用程序可以含有多个标准模块文件B）一个Visual Basic工程可以含有多个窗体文件D）标准模块文件的扩展名是.bas13. 以下叙述中，错误的是A）在Visual Basic中，对象所能响应的事件是由系统定义的C）Visual Basic中允许不同对象使用相同名称的方法D）Visual Basic中的对象具有自己的属性和方法14. 设有如下语句：Dim a,b As In tegerC= "VisualBasic ”D=#7/20/2005#以下关于这段代码的叙述中，错误的是A）a被定义为Integer类型变量B） b被定义为Integer类型变量C） c中的数据是字符串D）d中的数据是日期类型15. 以下能从字符串"VisualBasic "中直接取出子字符串"Basic"的函数是A）Left |B） Mid | C） Stri ng D） In str16. 设a=4,b=3,c=2,d=1下列表达式的值是a>b+1 Or c<d And b Mod cA) True B) 1 C) -1 D) 017.以下可以作为Visual Basic变量名的是A) A#A B)counstA C) 3A D) ?AA18.设x-4,y-6,则以下不能在窗体上显示出A=10 的语句是C） Print “ A= ” +Str（x+y）D） Print “ A= ” & x+y19. 假定有如下的命令按钮（名称为Comma ndl）事件过程：Private Sub Comma nd1_Click（）X=lnputBox（输入：：“'输入整数”）MsgBox ”输入的数据是：”，，”输入数据：”+XEnd Sub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是A）x的值是数值10B）输入对话框的标题是“输入整数“C）信息框的标题是“输入数据：10 “D）信息框中显示的是“输入的数据是：“20. 在窗体上画1个命令按钮（名称为Command1 ）和1个文本框（名称为Text1），然后编写如下事件过程：Private Sub Comma nd1_Click()X=Val(Text1.Text)Select Case xCase 1,3Y=x*xCase Is>=10,Is<=-10Y=xCase -10 To 10Y=-xEnd SelectEnd Sub程序运行后，在文本框中输入3,然后单击命令按钮，则以下叙述中正确的是A) 执行Y=x*x B)执行Y=-xC)先执行Y=x*x，再执行Y=-x D)程序出错21. 设有命令按钮Comma nd1的单击事件过程，代码如下：Private Sub Comma nd1_Click()Dim a(30) As In tegerFor i=1 to 30a(i)=I nt(R nd*100)NextFor Each arritem In aIf arrItem Mod 7=0 Then Print arrItem;If arrItem >90 Then Exit ForNextEnd Sub对于该事件过程，以下程序中错误的是B) 语句For Each arrltem In a 有语法错误C) ........................................... If arrltem Mod 7=0 语句的功能是输出数组中能够被........................... 7整除的数D) ................................ If arrItem >90 语句的作用是当数组元素的值大于....................... 90时退出For循环22. 设有命令按钮Comma nd1的单击事件过程，代码如下：Private Sub Comma nd1_Click()Dim a(3,3) As In tegerFor i=1 to 3For j=1 to 3a(i,j)=i*j+iNext jNext iSum=0For i=1 to 3Sum=Sum+a(i,4-i)Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是A) 20 B) 7 | C) 16 ~| D) 1723. 在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Comma nd1_Click()a=0For i=1 to 2For j=1 to 4If j Mod 2<>0 Thena=a-1End Ifa=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是A)0 B) 2 C) 3 | D)424. 窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1,程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示。