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

山东科技大学20162017学年第二学期计算机技术基础（VB）期中摸底试卷一、选择题（1至15每题1分，共15分）1. 为使控件在运行时不可见，应该设置该控件的_属性False。AEnabled BVisible CName DAutoRedraw2. 有程序代码如下：Text1.Text = Visual Basic，则：Text1，Text和Visual Basic分别代表_。A对象，值，属性 B对象，方法，属性C对象，属性，值 D属性，属性，值3. 以下不属于Visual Basic的工作模式是_模式。A编译 B设计 C运行 D中断4. 若要使命令按钮不可操作，要对_属性设置。AEnabled BVisible CBackColor DCaptions5. 文本框没有_属性AEnabled BVisible CBackColor DCaption6. 不论何控件，共同具有的是_属性。AText BName CForeColor DCaptionss7. 当运行程序时，系统自动执行启动窗体的_事件过程。AClick BUnload CGotFocus DLoad8. 在代码编辑器的一行内写多条语句时，每个语句之间用_符号分隔。A ， B ： C 、 D ；9. 数学关系表达式3 x 10 表示成正确的VB表达式为_A3 = x 10 B3 = x AND x = 3 OR x 10 D3 = x AND 1010. Int(199.555 * 100 + 0.5) / 100的值_。A199 B199 .6 C199.56 D20011. 表达式Len(123程序设计VB)的值是_。A9 B13 C14 D1012. 结构化程序设计由三种基本结构组成，下面属于三种基本结构之一的是_。A递归结构 B选择结构 C过程结构 D输入输出13. 如下数组声明语句，_正确。ADim a3,4 As Integer BDim(3 4) As IntegerCDim a(3,4) As Integer DDim a(n,n) As Integer14. 输入代码的时候，VB可以自动检测_A语法错误 B编译错误 C运行错误 D逻辑错误15. 语句If x = 2 Then y = 1，下列说法正确的是_A x=1和y1均为赋值语句 B x=1和y=1均为关系表达式C x=1为关系表达式， D y=1为赋值语句2、 填空题（每空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)*2Next JPrint B(J/2+0.1)End9、计算：S = 1+ 3 + 5 + + 99Private Sub QiuHe _ Click ( )Dim I , S As IntegerS = 0_、_、_、PRINT “S=”；SEnd Sub10、设有如下程序：程序运行后，单击窗体，则在窗体上显示的是6 5 4 3，请在_处将程序补充完整。Option Base 0Private 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 iEnd Sub11、程序的功能是输出100以内所有奇数,请补全程序代码。 Private sub Commad1_click() i=1 do while i100 Print i _ loop End sub 12、程序的功能是计算并输出7!(阶乘),请补全程序代码。Private Sub Command1_Click()_For k =7 To 2 _ t=t*_Next Print tEnd 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=30 X=(X+2)*(X+4) n=n+1LoopPrint n,xEnd Sub3、程序运行后，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 k4、下列程序输出结果为 。Private Sub Command1_Click()a%=10b%=5Change a,bPrint a,bEnd SubPrivate Sub Change(ByVal a As Integer,b As Integer)Tmp=aa=bb=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，评定条件如下：4、在购买某物品时，若所标明的价钱x