2016-2017年计算机技术基础(VB)期中试题(A卷)4.24

1、山东科技大学20162017 学年第二学期计算机技术基础（VB ）期中摸底试卷一、选择题（ 1 至 15 每题 1 分，共 15 分）1.为使控件在运行时不可见，应该设置该控件的_属性 False。A EnabledB VisibleC NameD AutoRedraw2.有程序代码如下： Text1.Text = Visual Basic，则： Text1， Text和 Visual Basic 分别代表_。A 对象，值，属性B对象，方法，属性C对象，属性，值D属性，属性，值3.以下不属于 Visual Basic 的工作模式是 _模式。A 编译B设计C运行D中断4. 若要使命令按钮不可操作

2、，要对_属性设置。A EnabledB VisibleC BackColorD Captions5. 文本框没有 _属性A EnabledB VisibleCBackColorD Caption6. 不论何控件，共同具有的是 _属性。A TextB NameC ForeColorD Captionss7. 当运行程序时，系统自动执行启动窗体的_事件过程。A ClickB UnloadC GotFocusD Load8. 在代码编辑器的一行内写多条语句时，每个语句之间用_符号分隔。A ，B：C、D；9. 数学关系表达式 3 x 10表示成正确的 VB 表达式为 _A 3 = x 10B 3 =

3、xANDx = 3OR x 10D 3 = xAND 1010. Int(199.555 * 100 + 0.5) / 100的值 _。A 199B 199 .6C 199.56D 20011. 表达式 Len(123 程序设计 VB) 的值是 _ 。A 9B 13C14D 1012. 结构化程序设计由三种基本结构组成，下面属于三种基本结构之一的是_。A 递归结构B 选择结构C过程结构D输入输出13. 如下数组声明语句， _ 正确。A Dim a3,4As IntegerB Dim(34)AsIntegerC Dim a(3,4)As IntegerD Dim a(n,n) AsInteger

4、14. 输入代码的时候， VB 可以自动检测 _A 语法错误B 编译错误C运行错误D逻辑错误15. 语句 Ifx = 2Theny = 1，下列说法正确的是_第 1 页/ 共 5 页A x=1和 y1均为赋值语句B x=1 和y=1 均为关系表达式C x=1为关系表达式，D y=1为赋值语句二、填空题（每空 1 分，共 20 分）1、 VB 程序中的三种基本结构是：_ 、_ 、 _。2、可以通过修改窗体的_属性，加载窗体的背景图形。3、单选按钮 Option1.Value 的值为 _表示该按钮处于选中状态。4.确定一个控件在窗体上位置的属性是_和 _。5、某对象的 Enabled 属性值为假

5、(False)，则程序运行时该对象_。6、 _ 方法在窗体中显示文字。7、若希望标签框的大小能自动按标签中所显示内容多少进行调整，需要修改的属性是_ 。8、下面程序运行后，输出的结果是_。For J= 1 To 10A(J)=2*JB(J)=A(J)*2Next JPrint B(J/2+0.1)End9、计算： S = 1+ 3 + 5 + + 99PrivateSubQiuHe _ Click ( )DimI , SAs IntegerS = 0_ 、_ 、_ 、PRINT“ S=；”SEnd Sub10、设有如下程序：程序运行后，单击窗体，则在窗体上显示的是6 5 4 3，请在 _处将程

6、序补充完整。Option Base 0Private Sub Form _ Click （）Dim aDim i As Integera=Array(1 ， 2， 3， 4， 5，6， 7， 8，9)For i=0 To 3_Next i第 2 页/ 共 5 页End Sub11、程序的功能是输出100 以内所有奇数,请补全程序代码。Private sub Commad1_click()i=1do while i100Print i_loopEnd sub12、程序的功能是计算并输出7!(阶乘 ),请补全程序代码。Private Sub Command1_Click()_Fork =7To2_

7、t=t*_NextPrinttEnd 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。 产生 1050 之间随机的正整数。 表示 10=X=30X=(X+2)*(X+4

8、)n=n+1LoopPrint n,xEnd Sub3、程序运行后，j 的值为 _ 。j=0s=0k=5for i=1 to 10j=j+1s=s+jk=6next iprint jprint k4、下列程序输出结果为。Private Sub Command1_Click()a%=10b%=5Change a,bPrint a,bEnd SubPrivate Sub Change(ByVal a As Integer,b As Integer)Tmp=aa=b第 4 页/ 共 5 页b=tmpEnd Sub5、下列程序段的执行结果为。a=0:b=1Doa=a+bb=b+1Loop While a10Print a;b五、编程（共20 分）1、 计算 100300 之间所有能被3 和 7 整除的数之和。2、 分别统计1100 中，满足 3 的倍数、 7 的倍数的数各为多少个。3、已知某课程的百分制成绩mark ，要求转换成对应的五级制评定grade，评定条件如下：优秀， mark90良好，80mark90等级中等，70mark80及格，60mark70不及格， mark604、在购买某物品时，若所标明的价钱x 在下述范围内，所付钱y 按对应折扣支付：x，x100000.9x ， 1000x2000y2000x30000.8x ，0.7x