(2011-2012-1)VB试卷A卷——答案
vb考试答案(A)
解：dim a%,b%,c%
a= InputBox("a=")：b = InputBox("b=")：c= InputBox("c=")：D=B*B-4*A*C
IF A<>0then
IF D>=0then
X1=(-B+SQR (D))/(2*A)：X2=(-B-SQR (D))/(2*A)：Print x1,x2
n=inputbox(“请输入n的值：”)
call jc(n,p)
Print p
End sub
Private sub jc(m%,q#)
Dim i%
Q=1
For i=1 to m
Q=q*i
next
End sub
3. 执行语句s = len(mid(“VisualBasic”,1,6))后，s的值是(C)。
(A) Visual (B) Basic (C) 6 (D) 11
4.下列选项中，合法的变量名(B)。
(A) c%aaa (B) sum__3 (C) Else (D) 5persons
5.返回系统当前日期和时间的函数是(D) 。
(C) Printer. Print “多媒体技术”
(D) Debug. Print “多媒体技术”
10. 以下关于图像框控件的说法中，错误的是（C）。
(A) 不可以通过Print方法在图像框中输出文本。
(B) 清空图像框控件中图形的方法之一是加载一个空图形。
(C) 图像框控件可以作为容器使用。
(D) 用Stretch属性可以自动调整图像框中图形的大小。
（2）编写一个子过程，将A（1）和A（100）交换、A（2）和A（99）交换、A（3）和A（98）交换，……，A（50）和A（51）交换。
VB期末考试试卷2012版(含答案)
'********** End ********** fun = Sum End Function Private Sub Form_Load() Show Print fun() NJIT_VBபைடு நூலகம்End Sub Private Sub NJIT_VB() Dim i As Integer Dim s As String Dim fOut As Integer fOut = FreeFile Open App.Path & "\out.dat" For Output As #fOut Print #fOut, fun() Close #fOut End Sub
8
C:DrawWidth 属性 D:DrawStyle 属性
答案：B 第 19 题 （2.0 分） 关于顺序文件和随机文件的说法错误的是(). A:顺序文件中记录的逻辑顺序与存储顺序是一致的 B:随机文件的结构特点是固定记录长度以及每条记录均有记录号 C:随机文件的操作与顺序文件相同 D:随机文件读写操作比顺序文件灵活
答案：A 第 17 题 （2.0 分） 在 VB 中没有提供下列()事件. A:MouseDown B:MouseUp C:MouseOver D:MouseMove
答案：C 第 18 题 （2.0 分） 在 VB 中,坐标轴的默认刻度单位是缇,用户可以根据实际需要使用()来改变刻度单位. A:Scale 属性 B:ScaleMode 属性
答案：C 第 15 题 （2.0 分） 下列程序： Sub mtv(ByVal m As Integer, ByVal n As Integer) m = m+7 n = n* 5 Print"m=";m;"n="n; End Sub Sub Form_Click() Dim a As Integer, b As Integer a = 8: b = 7 mtv a,b
大学考试《可视化程序设计（VB）》A卷及答案
一、单项选择题（共10题、总分30分、得分30分）1. 下列哪个语句定义了包含8个元素的单精度数组（） (本题分数：3 分，本题得分：3 分。
)A、Dim a(2,4) As SingleB、 Dim a(1 to 8)!C、Dim a!(7)D、 Dim a(1 to 2,3 to 6) As Long2. 下列关于菜单访问键和快捷键的说法正确的是（） (本题分数：3 分，本题得分：3 分。
)A、若一菜单项的Caption属性为“打开(&O)”，则其快捷键是Ctrl+OB、快捷键指用于执行一个命令的功能键或组合键，可以在菜单编辑器中将快捷键设为Alt+FC、可以为任意的菜单项都添加快捷键或访问键D、通过访问键打开某个子菜单时，必须先使焦点位于其上一级菜单3. 如果要退出Do…Loop循环，可使用语句（）。
(本题分数：3 分，本题得分：3 分。
)A、ExitB、 Exit DoC、 Exit ForD、Exit For4. 若有数组说明语句：Dim t(1 To 10) As Variant，则t被定义为（）。
(本题分数：3 分，本题得分：3 分。
)A、数值数组B、可调数组C、字符串数组D、可变类型数组5. 在下列关于对话框的叙述中，错误的是（）： (本题分数：3 分，本题得分：3 分。
)A、作为对话框窗体的Borderstyle、ControlBox、MaxButton和MinButton应分别设置为l、True、False和 False。
B、语句frmAbout．Show vbModeless，frmMain将 fmAbout窗体显示为 fmMain的无模式子窗体。
C、可以将对话框分成两种类型：模式的和无模式。
D、语句frmAbout．Show将frmAbout作为无模式对话框显示。
6. 在窗体上有一按钮Command1，其事件过程如下，则按下Command1窗体上显示的是（）Private Sub Command1_Click()Dim i As IntegerScale (0, 0)-(10, 10)For i = 1 To 3DrawStyle = iDrawWidth = iLine (0, i + 1)-Step(8, 0)CurrentY = CurrentY + 1NextEnd Sub (本题分数：3 分，本题得分：3 分。
VB计算机测试卷附答案
VB计算机测试卷一、选择题1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。
A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术2、赋值语句：a=123 & MID("123456",3,2)执行后，a变量中的值是（）。
A、"12334"B、123C、12334D、1573、保存一个工程至少应保存两个文件，这两个文件分别是（）。
A、文本文件和工程文件B、窗体文件和工程文件C、窗体文件和标准模块文件D、类模块文件和工程文件4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（）。
A、="VisualBasic窗体"B、Form1.Title="VisualBasic窗体"C、Form1.Caption="VisualBasic窗体"D、Form1.Text="VisualBasic窗体"5、下面正确的赋值语句是（）。
A、x+y=30B、y=π*r*rC、y=x+30D、3y=x6、Visual Basic 6.0集成环境的主窗口中不包括（）。
A、标题栏B、菜单栏C、状态栏D、工具栏7．在Visual Basic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是________。
A．B．C．D．8．在Visual Basic集成环境中，要结束一个正在运行的工程,可单击工具栏上的一个按钮,这个按钮是________。
A．B．C．D．9．在设计窗体时双击窗体的任何地方，可以打开的窗口是________。
A．代码窗口B．属性窗口C．工程资源管理器窗口D．工具箱窗口10．以下关系表达式中，其值为True的是______。
A．"XYZ">"XYz" B．"VisualBasic"<>"visualbasic"C．"the"="there" D．"Integer"<"Int"11．若变量a未事先定义而直接使用，则变量a的类型是_______。
VB程序设计方法考试卷（A）
VB 程序设计方法考试卷（A ）姓名姓名 学号学号一、选择题（40%，每题2分）分） 1、以下关于文件的叙述中，错误的是（、以下关于文件的叙述中，错误的是（ ）。
A 、顺序文件中的记录一个接一个地存放、顺序文件中的记录一个接一个地存放B 、随机文件中记录的长度是随机的、随机文件中记录的长度是随机的C 、执行打开文件的命令后，自动生成一个文件指针、执行打开文件的命令后，自动生成一个文件指针D 、LOF 函数返回给文件分配的字节数函数返回给文件分配的字节数2、以下叙述中错误的是（、以下叙述中错误的是（ ）。
A 、事件过程是响应特定事件的一段程序、事件过程是响应特定事件的一段程序 B 、不同的对象可以具有相同名称的方法、不同的对象可以具有相同名称的方法C 、对象的方法是执行指定操作的过程、对象的方法是执行指定操作的过程D 、对象事件的名称可以由编程者指定、对象事件的名称可以由编程者指定3、以下合法的Visual Basic 标识符是（标识符是（ ）A 、Forloop B 、Const C 、9abc D 、a#x 4、当一个复选框被选中时，它的V alue 属性的值是( ) A 、3 B 、2 C 、1 D 、0 5、表达式5MOD3+3\5*2的值是（的值是（ ）A 、0 B 、2 C 、4 D 、6 6、设x=4,y=8,z=7,以下表达式x<y And (NOT y>z)OR z<x 的值是（的值是（ ）A 、1 B 、－1 C 、True D 、False 7、设窗体上有一个文本框，设窗体上有一个文本框，名称为名称为text1,程序运行后，程序运行后，要求该文本框不能接受键盘输入，要求该文本框不能接受键盘输入，要求该文本框不能接受键盘输入，但但能输出信息，以下属性设置正确的是（能输出信息，以下属性设置正确的是（ ）。
A 、text1.maxlength=0 B 、text1.enabled=false C 、text1.visible=0 D 、text1.with=0 8、以下能在窗体form1标题栏中显示“V isualBasic 窗体”的语句是（窗体”的语句是（ ）。
2012-12VB选择题1答案
2012-12VB选择题1答案1-1、要判断在⽂本框中是否按了空格键，应通过⽂本框中（C ）事件判断。
A、ClickB、LostFocusC、KeyPressD、DblClick1-2、（D ）操作不能打开属性窗⼝的是：A、按F4建B、单击⼯具栏的“属性窗⼝”按钮C、执⾏“视图”菜单中的“属性窗⼝”命令D、按Ctrl+R1-3、当⽂本框的（C ）属性值设置为True时，⽂本框控件相当于标签的作⽤。
A、TabstopB、VisibleC、LockedD、Enabled1-4、（B ）类⽂件不能在“⼯程资源管理器”窗⼝中列出？A、.basB、.ocxC、.vbpD、.cls1-5、在运⾏程序时要判断窗体的系统事件Load、Activate、Initialize，这些事件发⽣的顺序是（ D ）。
A、Activate、Load、InitializeB、Initialize 、Activate、Load、InitializeC、Load、Activate、InitializeD、Initialize、Load、Activate2-1、窗体上有⼀个命令按钮Command1,编写如下事件过程：Private Sub Command1_Click()Dim x As IntegerStatic y As Integerx = x + 3y = y + 6End Sub2-2、下列变量（ A ）的数据类型是字符型。
A、X$B、X#C、X%D、X!2-3、Integer类型的变量可存放的最⼩整数为（C ）A、-256B、-255C、-32768D、-327672-4、在窗体中，⽤（D ）语句声明的变量X是全局变量A、Private X As IntergerB、Dim X As IntergerC、Static X As IntergerD、Public X As Interger2-5、⽤Dim Arr(5, -3 To 3) As Integer语句定义数组Arr后，下列语句中不正确的是（A ）。
VB程序设计试题及答案(一)
VB程序设计试题及答案（一)一、单选题1. VB6.0是一种面向 B 的编程环境。
（A）机器（B）对象(C）过程（D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB",以下 D 语句是正确的。
（A) Forml。
Caption=“欢迎使用VB”（B) Forml。
Caption='欢迎使用VB’(C) Forml.Caption=欢迎使用VB(D）Forml.Caption=”欢迎使用VB”3。
若要使命令按钮不可操作,要对 A 属性进行设置。
(A）EnabIed （B)Visible(C）Backcolor (D)Caption4。
如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。
（A）Change (B）LostFocus（C) KeyPress （D）GotFocus5。
下面 A 是合法的变量名。
(A）X_yz (B）123ab。
（C) integer (D）X-Y6. 以下关系表达式中,其值为False的是 A 。
（A) "ABC">"AbC”（B）"女"〉"男”（C）”BASIC”=UCase（"basic）(D) ”123”<”23”7。
为了给x、y、z三个变量赋初值1,下面正确的赋值语句是 A .(A) x=1:y=1：z=1 （B) x=1,y=1，z=1(C）x=y=z=1 (D）xyz=18。
VB提供了结构化程序设计的三种基本结构，三种基本结构是 D 。
（A）递归结构、选择结构、循环结构（B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D）选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。
(A）If sex="男" And age=4O And InStr(duty，"教授"）〉O Then n=n+l （B) If sex=”男" And age=4O And (duty=”教授” Or duty="副教授") Then n=n+l（C）If sex=”男” And age=4O And Right（duty，2）="教授" Then n=n+l (D）If sex="男" And age=4O And duty="教授" And duty=”副教授” Then n=n+l10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D 。
VB期末考试试题(A、B卷)
欢迎共阅VB期末考试试题（A卷）一、选择题1.要改变控件的宽度，应修改该控件的（B）属性。
A、TOPB、widthC、LeftD、Height2.将命令按钮Command1设置为不可见，应修改该命令按钮的（A）属性。
10.如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（C ）属性决定了该图片的颜色。
A、BackColroB、ForelklorC、FillcolorD、Dlawstyle一、选择题1.要在垂直位置上移动控件，应利用控件的（C）属性。
A、LeftB、WidthC、TopD、Height2.要在文本框中的文本显示掩码（密码）符，在属性设置时，首先必须设置（D）属性为False。
A、TxetB、EnabledC、VisibleD、Multline3.用键盘的光标键选中某一菜单项，并按回车触发菜单的（ C ）的事件。
A、KeyPressB、KeyDownC、ClickD、Keyllp4.一下（D ）对象不具有Clear方法。
y<b 的结果为True。
3．a 和b 中有仅只有一个不为1，相应的Visual Basic逻辑表达式为a<>1 xor b<>1。
4．把条件为1￡x ￡5 写成VB表达式为: x>=1 and x<=5。
5. 语句Line(1000,1000)-Step(2000,1500),vbRed,BF的含义是：在窗体上绘制以角点为（2000，2000）和（4000，3500）的红色实心的矩形。
?6．用随机函数产生10个100～500的整数，其表达可为：for I=1 to 10a(i)=100+int(400*rnd)next I。
7．当x=2时，语句if x=2 then Print x=2 的结果值是True。
8. Static Private Sub cmdSum_Click()Dim Sum as integer?? If rnddat Mod 2 = 0 Then?????? sum = sum + rnddat???? End IfNext iLabel1.Caption = sumEnd Sub2由输入对话框中输入100个数值数据，放入数组a，将其中的整数放入数组b，然后运用选择分类将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
浙江科技学院
2011 -2012 学年第 1 学期考试试卷 A 卷考试科目 VB程序设计考试方式闭卷完成时限 2小时
拟题人题库审核人批准人 2012 年 1月 11 日轻工、建工学院 11 年级给排水、轻化等专业
标准答案及评分标准
一、判断题（每题1分，共12分）请在各小题正确选项的对应位置上填“√”，A表示正确，B表示错误。
二、单选题（每题1分，共20分）请在各小题正确选项的对应位置上填“√”。
三、程序填空题（每题2分，共24分）请在各小题正确选项的对应位置上填“√”。
四、程序阅读题（每题4分，共24分）请在各小题正确选项的对应位置上填“√”。
五、编程题
1．
Private Sub Form_Click() '（1分）Dim a(1 To 10) As Integer '（1分）
Dim i%, j%, n%, t%
For i = 1 To 10 '（1分）
a(i) = Int(Rnd * 90) + 10 '（1分）
Print a(i); '（1分）Next i
Print
n = Val(InputBox("输入移位次数")) '（1分）
For i = 1 To n '（1分）
t = a(10)
For j = 9 To 1 Step -1 '（2分）
a(j + 1) = a(j)
Next j
a(1) = t
Next i
For i = 1 To 10 '（1分）
Print a(i);
Next i
Print
End Sub
2.
Private Sub Command1_Click()
Dim a() As String, n% '（1分） Open "C:\name.txt" For Input As #1 '（1分） Do While Not EOF(1) '（1分） n = n + 1
ReDim Preserve a(1 To n) '（1分） Line Input #1, a(n) '（1分） Loop
Close #1
For i = 1 To n - 1 '（3分） p = i
For j = i + 1 To n
If a(j) < a(p) Then p = j
Next j
t = a(i): a(i) = a(p): a(p) = t
Next i
Open " C:\name.txt" For Output As #1 '（1分） For i = 1 To n
Print #1, a(i) '（1分） Next i
Close #1
End Sub。