山东科技大学2016—2017学年第二学期
《计算机技术基础（VB）》期中摸底试卷
一、选择题（1至15每题1分，共15分）
1. 为使控件在运行时不可见，应该设置该控件的_________属性False。
A．Enabled B．Visible C．Name D．AutoRedraw
2. 有程序代码如下：Text1.Text = \，则：Text1，Text和\分别代表__________。
A．对象，值，属性 B．对象，方法，属性 C．对象，属性，值 D．属性，属性，值 3. 以下不属于Visual Basic的工作模式是________模式。 A．编译 B．设计 C．运行 D．中断
4. 若要使命令按钮不可操作，要对_________属性设置。
A．Enabled B．Visible C．BackColor D．Captions 5. 文本框没有_______属性
A．Enabled B．Visible C．BackColor D．Caption 6. 不论何控件，共同具有的是________属性。
A．Text B．Name C．ForeColor D．Captionss
7. 当运行程序时，系统自动执行启动窗体的_________事件过程。 A．Click B．Unload C．GotFocus D．Load
8. 在代码编辑器的一行内写多条语句时，每个语句之间用_____符号分隔。 A． ， B． ： C． 、 D． ；
9. 数学关系表达式3 ≦ x < 10 表示成正确的VB表达式为_______ A．3 <= x < 10 B．3 <= x AND x < 10 C．x >= 3 OR x < 10 D．3 <= x AND < 10 10. Int(199.555 * 100 + 0.5) / 100的值_________。 A．199 B．199 .6 C．199.56 D．200 11. 表达式Len(\程序设计VB\的值是_______。 A．9 B．13 C．14 D．10
12. 结构化程序设计由三种基本结构组成，下面属于三种基本结构之一的是_________。 A．递归结构 B．选择结构 C．过程结构 D．输入输出 13. 如下数组声明语句，__________正确。
A．Dim a[3,4] As Integer B．Dim(3 4) As Integer C．Dim a(3,4) As Integer D．Dim a(n,n) As Integer 14. 输入代码的时候，VB可以自动检测_________
A．语法错误 B．编译错误 C．运行错误 D．逻辑错误 15. 语句If x = 2 Then y = 1，下列说法正确的是________
第 1 页/ 共5 页
A． x=1和y＝1均为赋值语句 B． x=1和y=1均为关系表达式 C． x=1为关系表达式， D． y=1为赋值语句
二、填空题（每空1分，共20分）
1、VB程序中的三种基本结构是：____________、____________、____________。 2、可以通过修改窗体的____________属性，加载窗体的背景图形。 3、单选按钮Option1.Value的值为____________表示该按钮处于选中状态。 4.确定一个控件在窗体上位置的属性是____________和____________。 5、某对象的Enabled 属性值为假(False)，则程序运行时该对象____________。 6、____________方法在窗体中显示文字。
7、若希望标签框的大小能自动按标签中所显示内容多少进行调整，需要修改的属性是_____________。
8、下面程序运行后，输出的结果是_______。 For J= 1 To 10 A(J)=2*J B(J)=A(J)*2 Next J Print B(J/2+0.1) End
9、计算：S = 1+ 3 + 5 + … + 99 Private Sub QiuHe _ Click ( ) Dim I , S As Integer S = 0
__________________________、 _____________、 _____________、 PRINT “S=”；S End Sub
10、设有如下程序：程序运行后，单击窗体，则在窗体上显示的是6 5 4 3，请在_______处将程序补充完整。 Option Base 0
Private Sub Form _ Click（） Dim a
Dim i As Integer
a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3
__________________________ Next i
第 2 页/ 共5 页
End Sub
11、程序的功能是输出100以内所有奇数,请补全程序代码。 Private sub Commad1_click() i=1
do while i<100 Print i _______ loop End sub
12、程序的功能是计算并输出7!(阶乘),请补全程序代码。 Private Sub Command1_Click() ________
For k =7 To 2 ________ t=t*_____ Next Print t End Sub
三、简答题（30分）
1、说明下列哪些是VB合法的常量，分别指出它们是什么类型。（10分）
⑴ 100.0 ________ ⑵ 1E1 ________ ⑶ 123D3 ________ ⑷ “ASDF”________ ⑸ True ________ ⑹ -1123!________ ⑺ #2000/10/7#________ ⑻ T ________ ⑼ “1234” ________ ⑽ 100# ________ 2、根据条件写出相应的VB表达式。（10分）
⑴ X=123，将X中数逆序即变成321，请写出此表达式。
⑵ for i=100 to 1 step -3 请说出该循环循环多少次，退出的i值是多少 ⑶ X，Y都大于Z。
⑷ 产生10~50之间随机的正整数。 ⑸ 表示10<=X<20的关系表达式 3、写出下列表达式的值。（10分） ⑴ 100/5\\3 Mod 10\\2^2+true+\⑵ 100+\
⑶ Int（68.555*100+0.5）/100 ⑷ DateAdd(\，1，#1/30/2000#) ⑸ 123+23 Mod 10\\7+Asc(\
四、给程序写结果(15分)
1、程序运行后，输入成绩：90，程序执行结果为_________。
第 3 页/ 共5 页
a=inputbox(\请输入学生的成绩：\输入成绩\select case a
case 85 to 100
msgbox(\成绩优秀\ case 60 to 84
msgbox(\成绩合格\case else
msgbox(\成绩较差\end select
2、程序运行后，输出的值分别为_______和______ Private Sub Command1_Click() X=0
Do Until X>=30 X=(X+2)*(X+4) n=n+1 Loop Print n,x End Sub
3、程序运行后，j的值为_______。 j=0 s=0 k=5
for i=1 to 10 j=j+1 s=s+j k=6 next i print j print k
4、下列程序输出结果为 。
Private Sub Command1_Click() a%=10 b%=5
Change a,b Print a,b End Sub
Private Sub Change(ByVal a As Integer,b As Integer) Tmp=a a=b
第 4 页/ 共5 页
b=tmp End Sub
5、下列程序段的执行结果为 。
a=0:b=1 Do
a=a+b b=b+1
Loop While a<10 Print a;b
五、编程（共20分）
1、 计算100~300之间所有能被3和7整除的数之和。
2、 分别统计1~100中，满足3的倍数、7的倍数的数各为多少个。
3、已知某课程的百分制成绩mark，要求转换成对应的五级制评定grade，评定条件如下：
mark?90?优秀，? 80?mark?90?良好，?等级??中等， 70?mark?80
?及格， 60?mark?70?? mark?60?不及格，4、在购买某物品时，若所标明的价钱x在下述范围内，所付钱y按对应折扣支付：
x?10000?x，?0.9x， 1000?x?2000? y?? 2000?x?3000?0.8x，? x?3000?0.7x，5、编写一个程序，求1！+3！+5！+...+99!
任何大于1的自然数n阶乘：n!=1×2×3×……×n 例如5！=1*2*3*4*5=120
6、求S=1+(1+2)+(1+2+3)+(1+2+3+4)+......+(1+2+3+4+...+n)。
第 5 页/ 共5 页
相关推荐：
loading