2013学年育才学校VB期中考试
vb期中考试18
《vb期中测试》试卷一、单选题（每题1.5分，共45分）1、以下叙述中错误的是______。
A、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体B、窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体C、窗体的Hide方法和Unload方法的作用完全相同D、一个工程中只能有一个Sub Main过程您的答案：C 参考答案：C您的得分：1.5 题分：1.52、在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click()n=Val(Text1.Text)For i=2 To nFor j=2 To Sqr(i)If i Mod j=0 Then Exit ForNext jIf j>sqr(i) Then Print iNext iEnd Sub这事件过程的功能是______。
A、输出n以内的奇数B、输出n以内的素数C、输出n以内的偶数D、输出n以内能被j整除的数您的答案：B 参考答案：B您的得分：1.5 题分：1.53、设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load()ShowText1.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Print "程序设计"End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print "Visual Basic"; End Sub程序运行后，如果在文本框中输入字母"a"，然后单击窗体，则在窗体上显示的内容是______。
VB期中考试卷
19.以下叙述中错误的是______
A.在程序运行时，通用对话框控件是不可见的
B.在同一个程序中，用不同的方法(如ShowOpen或ShowSave等)打开的通用对话框具有不同的作用
C.调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件
End Sub
D. Private Sub Command1_Click()
List1.RemoveItem "重庆"
End Sub
10. 在窗口上有右图所示的控件，各控件的名称与其标题相同，并有如下程序，刚运行程序时，看到的窗体外观是______
Private Sub Form_Load()
Command2.Enabled = False
D.调用通用对话框控件的ShowColor方法，可以打开颜色对话框
20.以下叙述中错误的是______
A.在同一窗体的菜单项中,不允许出现标题相同的菜单项B.程序运行中,可重新设置菜单的Visible属性
C.弹出式菜单也在菜单编辑器中定义D.在菜单的标题栏中“&”所引导的字母指明访问该菜单项的访问键
A.通过Button参数判定当前按下的是哪一个鼠标键B. Shift参数只能用来确定是否按下Shift键
C. Shift参数只能用来确定是否按下Alt和Ctrl键D.参数x,y用来设置鼠标当前位置的坐标
12.在窗体上画有一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled = True，Interval = 0，并编程如下。希望在程序运行时，可每2秒在标签上显示系统当前时间。在程序执行时发现未能实现上述目的，那他应做______修改
VB期中考试试卷-及参考答案(B1卷)-
2010~2011学年度第2学期期中考试试卷[B1]考试科目: 《Visual Basic程序设计》考试形式: 开卷-上机考答题时间: 120分钟班级学号姓名一、选择题（2分/题, 共20分）1.以下有关VB对象名称(Name)属性的叙述，正确的是_______。
A）对象的Name属性值可以为空B）窗体的Name属性用来标识和引用窗体C）可以在程序运行期间改变对象的Name属性值D）窗体的Name属性值是显示在标题栏中的字符串2.Visual Basic6.0集成环境的主窗口中不包括_______。
A）标题栏B）菜单栏C）状态栏D）工具栏3. 在开发VB应用程序时, 一个工程一般至少应含有_______。
A）标准模块文件和类模块文件B）工程文件和窗体文件C）工程文件和类模块文件D）工程文件和标准模块文件4. .为了使命令按钮(名称为Command1)右移200, 应使用的语句是_______。
A）Command1.Move -200B）Command1.Move 200C）Command1.Left= Command1.Left+200D）Command1.Left= Command1.Left-2005. 当程序运行时, 系统自动执行启动窗体的_______事件过程。
A）Click B）Load C）Unload D）GotFocus6. Visual Basic有多种类型的窗口, 若要在设计时看到窗体窗口, 以下操作不正确的是________。
A）打开“视图”菜单, 选择“对象窗口”B）双击VB窗口工作区的空白处C）单击“工程资源管理器”中的“查看对象”按钮D）双击“工程资源管理器”中对应的窗体名7. 下面关于属性和方法的描述中, 不正确的是________。
A）属性是对象的特征, 方法是对象的行为B）属性和方法都有值C）属性可以被赋值D）方法表示能执行的操作8. 下面关于标签和文本框的描述中, 正确的是________。
vb期中考试10
《vb 期中测试》试卷一、单选题（每题1.5分，共45分）1、设执行以下程序段时依次输入1、3、5，执行结果为______。
Dim a(4) As Integer, b(4) As Integer For K = 0 To 2a(K + 1) = Val(InputBox("请输入数据")) b(3 - K) = a(K + 1) Next K Print b(K)A 、 5B 、 3C 、 1D 、 0您的答案：B 参考答案：C 您的得分：0 题分：1.52、某人为计算n!(0<n<=12)编写了下面的函数过程：Private Function fun(n As Integer) As Long Dim p As Long p=1For k=n-1 To 2 Step -1 p=p*k Next k fun=p End Function在调试时发现该函数过程产生的结果是错误的，程序需要修改。
下面的修改方案中有3种是正确的，错误的方案是______。
A 、把p=1改为p=nB 、把For k=n-1 To 2 Step -1改为For k=1 To nC 、把For k=n-1 To 2 Step -1改为For k=1 To n-1D 、把For k=n-1 To 2 Step -1改为For k=2 To n 您的答案：B 参考答案：C 您的得分：0 题分：1.5 3、有如下程序：：Private Sub Form_Click()Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10If i Mod 2 <> 0 And i Mod 3 = 0 Thensum = sum + i End If Next i Print sum End Sub程序运行后，单击窗体，输出结果为______。
A 、24B 、30C 、12D 、18 您的答案：C 参考答案：C 您的得分：1.5 题分：1.5 4、窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1，其下标从左到右分别为0、1、2、3，窗体外观如图所示。
vb期中考试4
《vb期中测试》试卷一、单选题（每题1.5分，共45分）1、设执行以下程序段时依次输入1、3、5，执行结果为______。
Dim a(4) As Integer, b(4) As IntegerFor K = 0 To 2a(K + 1) = Val(InputBox("请输入数据"))b(3 - K) = a(K + 1)Next KPrint b(K)A、 0B、 3C、 5D、 1您的答案：A 参考答案：D您的得分：0 题分：1.52、下列程序段的执行结果为______。
Dim A(10), B(5)For i = 1 To 10A(i) = iNext iFor j = 1 To 5B(j) = j * 20Next jA(5) = B(2)Print "A(5)="; A(5)A、A(5)= 5B、A(5)= 20C、A(5)= 10D、A(5)= 40您的答案：D 参考答案：D您的得分：1.5 题分：1.53、在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：Private Sub Form_Load()ShowText1.Text = ""Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Text1_Change()Text2.Text = Mid(Text1.Text, 8)End Sub程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2显示的内容是______。
A、BeijingC B、China C、Beijing D、BeijingChina您的答案：B 参考答案：B您的得分：1.5 题分：1.54、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。
201305VB程序设计与VBA应用城市学院期中考卷
诚信应考 考出水平 考出风格浙江大学城市学院2012 — 2013 学年第二学期期中考试答卷《 VB 程序设计基础与VBA 应用 》开课单位： 计算分院 ；考试形式：闭卷；考试时间： 2013 年 5 月 5 日 所需时间： 120 分钟一．单选题(本大题共 30 题，每题 1 分，共 30 分。
)二．程序匹配题(本大题共 2 题 10 空，每空 2 分，共 20 分。
) 三．程序阅读题(本大题共 5 题，每题4 分，共 20 分。
) 第1题:第2题:第3题: 第4题: 第5题:四．程序设计题(本大题共 3 题，每题 10 分，共 30 分。
)第1题： .第2题： .第3题： .浙江大学城市学院2012 — 2013 学年第二学期期中考试试卷《VB程序设计基础与VBA应用》开课单位：计算分院；考试形式：闭卷；考试时间：2013 年 5 月 5 日所需时间： 120 分钟一、单选题（30%，每小题1分）(1)一个对象可以执行的动作和可被对象识别的动作分别称为。
A．事件、方法 B. 属性、方法C．方法、事件 D. 过程、事件(2)在启动窗体时，为了初始化该窗体中的各控件，可选用窗体的事件。
A. ClickB. DblClickC. LoadD. Unload(3)将VB编制的程序保存在磁盘上，至少会产生何种文件。
A. .vbp与.frmB. .com与.exeC. .bat与.frmD. .doc与.txt(4)改变控件在窗体中的水平位置应修改该控件的属性。
A. TopB. LeftC. WidthD. Right(5)以下条语句执行后将会删除文本框Text1中的文本？A. Text1.SelText=””B. Text1.Text=””C. Text1.ClearD. Text1.SelText.Clear(6)下面是日期型常量。
A. "12/19/99"B. #12/19/99#C. 12/19/99D. {12/19/99}(7)若x是一个正实数，对x的第3位小数四舍五入的表达式是。
VB期中考试试题
专业课期中考试试卷学号：____________姓名：_______________一、选择题（本大题共60个小题，每小题1分，共60分。
在每小题所给的四个选项中，只有一个符合题目要求，将正确答案填在相应的括号中）1、Windows XP是（）A、多用户多任务操作系统B、单用户单任务操作系统C、单用户多任务操作系统D、多用户分时操作系统2、多窗口的切换可以通过_______进行（）A、改变窗口的大小B、关闭当前活动窗口C、按【Alt+Shift】组合键D、按【Alt+Tab】组合键3、在Window X P中，任务栏的最主要功能是（）A、实现任务间的切换B、显示系统的所有功能C、显示所有已打开过的窗口图标D、显示当前窗口的图标4、Windows XP的命令菜单中，变灰的菜单表示（）A、将弹出对话框B、该命令正在起作用C、该命令的快捷键D、该命令当前不可用5、在Windows中，关于对话框叙述不正确的是（）A、对话框没有最大化按钮B、对话框没有最小化按钮C、对话框形状大小不能改变D、对话框不能移动6、在Windows中，下列叙述正确的是（）A、当用户为应用程序创建快捷方式时，就是将该应用程序再增加一个备份B、关闭一个窗口就是将该窗口正在运行的程序转入后台执行C、桌面上的图标完全可以根据用户的意愿重新排列D、一个应用程序窗口只能显示一个文档窗口7、安装Windows之后，桌面上不能直接删除的图标有（）Ａ、我的电脑Ｂ、回收站Ｃ、IE浏览器Ｄ、网上邻居8、要打开下拉式菜单可以使用（）A、热键B、Alt+热键C、Ctrl+热键D、Shift+热键9、在Windows的窗口中，选中末尾带有…的菜单意味着（）A、将弹出下一级菜单B、将执行该菜单命令C、表示该菜单项已被选中D、将弹出一个对话框10、在Windows“开始”菜单下的“文档”菜单存放的是（）A、最近建立的文档B、最近打开过的文件夹C、最近打开过的文档D、最近运行过的程序11、在Windows中，实现窗口移动的操作是（）A、将鼠标指针指向菜单栏，拖到鼠标B、将鼠标指针指向边框，拖到鼠标C、将鼠标指针指向标题栏，拖到鼠标D、将鼠标指针指向任何位置，拖到鼠标12、如果一个窗口被最小化，此时运行其他程序，则（）A、与被最小化的窗口相对应的撤除内存B、与被最小化的窗口相对应的继续占有内存C、与被最小化的窗口相对应的程序被终止执行D、内存不够时，会自动关闭13、当一个文档窗口被关闭后，该文档将（）A、保存在外存中B、保存在内存中C、保存在剪贴板D、既保存在外存也保存在内存中14、关于Windows XP窗口概念，以下叙述正确的是（）A、屏幕上只能出现一个窗口，这就是活动窗口B、屏幕上可以出现多个窗口，但只有一个是活动窗口C、屏幕上可以出现对个窗口，但不止一个是活动窗口D、屏幕上可以出现多个活动窗口15、下列________不是对活动窗口的描述（）A、标题栏为蓝色 B、对应的程序为前台程序C、对应的任务按钮上凸D、对应的任务按钮下凹16、在Windows XP的“关闭计算机”对话框中，不能选择的是（）A、待机B、重新启动C、切换用户 D、关闭17、Windows中将信息传送到剪贴板不正确的方法是（）A、用“剪切”命令把选定的对象拷贝到剪贴板B、Alt+PrintScreen把当前窗口拷贝到剪贴板C、用“复制”命令把选定的对象拷贝到剪贴板D、用Ctrl+V把选定的对象拷贝到剪贴板18、在Windows XP操作系统中，将“回收站”中文件还原时，被还原的文件将回到（）A、系统的“我的文档”中B、计算机内存中C、系统的桌面上D、文件原来的位置上19、对Windows XP中的文件或文件夹使用“发送到”命令时，其操作的说法不正确的是（）A、可以将文件或文件夹快速复制到“我的文档”B、可以创建文件或文件夹的桌面快捷方式C、可以将文件或文件夹快速移动到Ｕ盘D、发生成功后，源文件或文件夹不受任何影响20、在Windows XP的文件操作中，下列说法错误的是（）A、用鼠标右键单击该文件夹，然后选择“重命名”，键入新的文件名后按回车键即可完成该名操作B、在选中该文件夹的情况下再用左键单击该文件夹的名称，输入新文件名后按回车键即可完成改名操作C、用右键双击该文件夹，输入新文件名后按回车键即可完成改名操作D、选中该文件夹后，使用“文件”菜单下的“重命名”选项，输入新文件名后按回车键即可完成改名操作21、Windows XP中，对文件和文件夹的管理主要通过_________来实现（）A、对话框B、剪贴板C、资源管理器或我的电脑D、控制面板22、在Windows中，当选定文件或文件夹后，不将文件或文件夹放到“回收站”中，而直接删除的是（）A、按DELETE(DEL)键B、用鼠标直接将文件或文件夹拖放到“回收站”中C、按SHIFT+DELETE(DEL)键D、用“我的电脑”或“资源管理器”窗口中“文件”菜单中的删除命令23、在Windows的“资源管理器”中，用鼠标将硬盘上某个文件拖放到U盘上的操作是（）A、移动B、复制C、删除 D、剪切24、在Windows XP中，可以使用“回收站”进行恢复的文件是（）A、直接使用“DELETE”按键删除的硬盘上的文件B、直接使用“DELETE”按键删除的网络驱动器上的文件C、使用鼠标左键选定U盘上的文件后拖放到“回收站”D、使用鼠标右键选定U盘上的文件后选择“剪切”命令，然后“粘贴”到回收站25、下面关于Windows XP的文件名的叙述错误的是（）A、文件名中允许使用汉字B、文件名中允许使用多个圆点分隔符C、文件名中允许使用空格D、文件名中允许使用竖线“|”26、在Windows XP的“资源管理器”窗口中，如果想一次选定多个分散的文件夹或文件，正确的操作是（）A、按住CTRL键，用鼠标右键逐个选取B、按住CTRL键，用鼠标左键逐个选取C、按住SHIFT键，用鼠标右键逐个选取D、按住SHIFT键，用鼠标左键逐个选取27、在Windows中，下列正确的文件名是（）A、MY PRKGRAM GROUPB、FILE1|FILE2C、A<>B.CD、A?B.DOC28、在Windows“资源管理器”窗口中，为了将选定硬盘上文件或文件夹复制到U盘，应进行的操作是（）A、先将它们删除并放入“回收站”，再从“回收站”中恢复B、用鼠标左键将它们从硬盘拖到U盘C、先执行“编辑”菜单中的“剪切”命令，在执行“编辑”菜单中的“粘贴”命令D、用鼠标右键将它们从硬盘拖到U盘并从弹出的快捷菜单中选择“移动到当前位置”29、用于获得字符串长度的函数是（）A、Len()B、LenB()C、StrLen()D、strLength()30、在Windows资源管理器左窗口中，若显示的文件夹图标前面带有加号“+”，意味着该文件夹（）A、含有下级文件夹B、仅含有文件C、是空文件夹D、不含下级文件夹31、在“资源管理器”中，查看所有文件（包括隐藏文件和系统文件），正确的操作是（）A、单击【查看】——列表，显示所有文件B、单击【查看】——详细列表，显示所有文件C、单击【工具】——文件夹选项，然后在“查看”选项窗口中单击显示所有文件和文件夹D、单击【编辑】——全部选定，显示所有文件。
vb期中考试20
《vb期中测试》试卷一、单选题（每题1.5分，共45分）1、下列程序段的执行结果为______。
K = 0For I = 1 To 3A = I ^ I ^ KPrint A;Next IA、 0 0 0B、 1 4 9C、 1 1 1D、 1 2 3您的答案：C 参考答案：C您的得分：1.5 题分：1.52、在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：Private Sub Command1_Click()Counter = 0For i = 1 To 4For j = 6 To 1 Step -2Counter = Counter + 1Next jNext iLabel1.Caption = Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是：______。
A、11B、20C、16D、12您的答案：D 参考答案：D您的得分：1.5 题分：1.53、在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程Private Sub Form_Load()List1.AddItem "Item1"List1.AddItem "Item2"List1.AddItem "Item3"End SubPrivate Sub Command1_Click()List1.List(List1.ListCount) = "AAAA"End Sub程序运行后，单击命令按钮，其结果为______。
A、把字符串"AAAA"插入到列表框的最前面（即"Item1"的前面）B、把字符串"AAAA"添加到列表框的最后（即"Item3"的后面）C、把列表框中原有的最后一项改为"AAAA"D、把字符串"AAAA"添加到列表框中，但位置不能确定您的答案：B 参考答案：B您的得分：1.5 题分：1.54、在窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2013学年育才学校期中考试
高二VB试卷
一、单项选择题（每题1分，共4分）
（）1、VB工程文件的扩展名是。
A .bmp B.vbp C .frm D.bas
（）2、每个控件都具有的属性是。
A． Name B． Capion C．Text D．Width
（）3、决定一个控件文字特性的属性是。
B.caption
C.text
D.font
（）4、要在DO——LOOP语句的循环体中强制退出循环，应使用的语句是。
A .EXIT B.STOP C.CONTINUE D.EXIT DO
二、判断题，请在括号内打√或打×（每空1分，共3分）
1、Do ……Loop While ……语句，至少执行循环1次。
（）。
2、注释符用”’”，可以放在程序段中的任意位置。
（）。
3、子过程的参数传递，默认是按地址传递的。
（）。
三、下列程序段的功能是随机产生10个[10，99]范围的随机整数，统计其
中能被5整除数之和。
请在横线内填空把程序补充完整。
（每空1分，共3分）
DIM S AS INTEGER，I AS INTEGER，X AS INTEGER
S=0
FOR I=
X=
IF THEN
S=S+X
NEXT I
PRINT S
四、操作题。
1、主界面窗体（共31分）
（1）窗体的标题设置为（1分）
（2）菜单栏的设置：通过打开菜单编辑器，在菜单编辑器中定义菜单结构，其中顶层菜单项的标题为和。
“考试题目”菜单下的菜单项的有、
、；“退出”菜单下的菜单项为。
（每空1分，共7分）
（3）窗体内容如上图，添加所需控件：
Label1（标签）：通过设置属性，将其显示文本更改为“”，通过设置属性，设置标签文本字体的大小以及字体名称及其他效果。
四个命令按钮：设置四个命令按钮的Caption属性分别为、、、。
（每空1分，共7分）（4）代码：
单击“基本操作”、“简单应用”、“综合应用”三个命令按钮时关闭当前窗体界面，进入相应窗体。
Private Sub Command1_Click()
——1分
——1分
End Sub
Private Sub Command2_Click()
——1分
——1分
End Sub
Private Sub Command3_Click()
——1分
——1分
End Sub
单击“结束考试”按钮时会有提示信息如图：单击确定按钮时关闭窗体
Private Sub Command4_Click()
——1分
——1分
End Sub
下拉式菜单各菜单项的代码：
Private Sub JBCZ_Click()
——1分
——1分
End Sub
Private Sub JDYY_Click()
——1分
——1分
End Sub
Private Sub ZHYY_Click()
——1分
——1分
End Sub
Private Sub EXIT_Click()
——1分
——1分
End Sub
2、窗体2：基本操作界面（24分）
设置窗体的标题（caption）为
通过控件画出小球。
添加个命令按钮，设置
它们的Caption分别为、、、、、、、
、。
代码实现：（小球的控件修改名称属性为S1，变化量设置为50缇）Private Sub Command1_Click() ‘上移
——1分
End Sub
Private Sub Command2_Click() ‘下移
——1分
End Sub
Private Sub Command3_Click() ‘左移
——1分
End Sub
Private Sub Command4_Click() ‘右移
——1分
End Sub
Private Sub Command5_Click() ‘隐藏
——1分
End Sub
Private Sub Command6_Click() ‘显示
——1分
End Sub
Private Sub Command7_Click() ‘变大
——1分
——1分
End Sub
Private Sub Command8_Click() ‘缩小
——1分
——1分
End Sub
Private Sub Command9_Click() ‘返回主菜单
——1分
——1分
End Sub
3、窗体3：简单应用界面（17分）
设置窗体的标题（caption）为
Label（标签）控件：共需个，设置Caption属性分别为
、、。
TextBox（文本框)控件：共需个，将属性清空。
CommandButton(命令按钮)控件：共需个，设置Caption属性分别为、、。
代码实现：（单击退出返回主界面）
Private Sub Command1_Click() ‘相加
——2分
End Sub
Private Sub Command2_Click() ‘清除
——2分
End Sub
Private Sub Command3_Click() ‘退出
——1分
——1分
End Sub
4、窗体4：综合应用界面（18分）
设置窗体的标题（caption）为：。
界面如上图。
单击开始按钮在图片框中出现图形如上图，单击返回按钮返回主界面窗体。
该应用程序用到的控件有：
首先添加一个控件(修改其Name属性为P1)，用来存放打印图形。
Label（标签）控件，设置属性为。
CommandButton(命令按钮)控件：共需个，设置Caption属性分别为、。
分析：该打印图形共行，通过观察可知各行“0”字的数量与行数（i）的数量关系为（2分）
代码实现：
Private Sub Command1_Click()
For i = To
P1. ‘光标位置确定
For j= To
P1. ‘确定打印的图形由“0”字组成
Next j
P1.Print
Next i
End Sub
Private Sub Command2_Click() ‘返回
——1分
——1分
End Sub。