1、第18题 （1.0分） 题号:685dim a（1 to 5）定义的数组是2维数组。第19题 （1.0分） 题号:679用户可以通过设置菜单项的hide属性值为false来使该菜单项失效。二、单项选择 共46题 （共计46分）1044双击窗体的任何地方，可以打开的窗口是（）。A:代码窗口B:属性窗口C:工程管理窗口D:以上3个选项都不对1071VB认为下面（）组变量是同一个变量。A1和a1SUM和SUMMARYAVER和AVERAGEA1和A_1第3题 （1.0分） 题号:1118决定控件上文字的字体、字形、大小及效果的属性是（）。TEXTCAPTIONNAMEFONT1013下列（）是窗体的
2、扩展名。frmbasclsdll2298关于VB源代码的编写,下列说法错误的是一个语句必须写在一行中,不可分成多行来书写同一行可以写多个语句可以适当添加注释有利于程序的维护和调试VB源代码中不区分字母的大小写2313如果在窗体上画一个命令按钮Command1,然后编写如下实事件代码: Private Sub Command1_ Click （） x=2 For i=1 To 10 Step 2 x=x+i Next i Print x End Sub那么,程序运行后,单击命令按钮,其窗体上显示的结果是262738572304使程序设计在当前窗体上输出的语句是Print Picture1.Pri
3、nt Printer.Print Text.Print 724下面（ ） 是合法的变量名.X_yz123abcintegerX-Y1006以下关于vb 语言的说法中，正确的是（）。vb 是一种面向过程的语言vb 是一种面向对象语言vb是一种低级语言vb 是一种机器语言1052设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda，则另一个命令按钮的名称不能是（）。cmdccmdbcmdACommand1736下面正确的赋值语句是（ ） .x+y=30y= * r * ry=x+303y=x995要想清除文本框中的内容则可利用（）进行。CaptionTextClearCls1068MSGBO
4、X函数中有4个参数，其中必须写明的参数是（）。指定对话框中显示按钮的数目设置对话框标题提示信息所有参数都是可选的727下面（ ） 是合法的单精度型变量num!sum%xinte$mm#2301用InputBox（）函数设计的对话框,其功能是只能接收用户输入的数据,但不会返回任何信息能接收用户输入的数据,并能返回用户输入的信息既能用于接收用户输入的信息,又能用于输出信息专门用于输出信息961将命令按钮Command1设置为不可见，应修改该命令按钮的（）属性。VisibleValueEnabled1176执行下面的程序段后，x的值为（）。x=5 For i=1 To 20 Step 2 x=x+i
5、5 Next i 21222324967由For k=10 to 0 step 3:next k循环语句控制的循环次数是（）。12-11-102309Do循环语句是根据条件决定循环的语句的,下列说法正确的是While和Until都是在条件变为真的之前重复循环Until是当条件为真时执行循环,而While是在条件变为真的之前重复While和Until都是当条件为真时执行循环While是当条件为真时执行循环,而Until是在条件变为真的之前重复第20题 （1.0分） 题号:1177用语句Dim A （-3 To 5） As Integer定义的数组的元素个数是（）。6789第21题 （1.0分）
6、题号:2307以下Case语句中错误的是Case 0 To 10Case Is10Case 3, 5, Is10 And Is50第22题 （1.0分） 题号:2303可以实现从键盘输入一个作为双精度变量a的值的语句是a=InputBox（）a=InputBox（请输入一个值）a=Val（InputBox（） ）a=Val（InputBox（） ）第23题 （1.0分） 题号:1092窗体的Caption属性的作用是（）。确定窗体的名称确定窗体的标题确定窗体的边界类型确定窗体的字体第24题 （1.0分） 题号:933函数Int（10*Rnd）是在（）范围内的整数。0,11,101,90,9第2
7、5题 （1.0分） 题号:1128以下（）程序段可以实施X、Y变量值的变换。Y=X:X=YZ=X:Y=Z:X=Y:Y=ZW=Y:第26题 （1.0分） 题号:939循环结构For I%= -1 to 17 Step 2 共执行（）次。5第27题 （1.0分） 题号:1022下面（）是日期型常量。12/19/9912/19/99#12/19/99#12/19/99第28题 （1.0分） 题号:742VB提供了结构化程序调计的三种基本结构,三种基本结构是（ ） .递归结构、选择结构、循环结构选择结构、过程结构、顺序结构过程结构、输入输出结构、转向结构选择结构、循环结构、顺序结构第29题 （1.0分
8、） 题号:1055表达式Mid（SHANGHAI,6,3）的值是（）。SHANGHSHAANGHHAI第30题 （1.0分） 题号:705有程序代码如下:Text.Text=Text1.text则Text1、Text、分别代表 .对象、值、属性对象、方法、属性对象,属性、值属性、对象、值第31题 （1.0分） 题号:1172表达式4+56*7/8Mod9的值是（）。4第32题 （1.0分） 题号:740语句:PrintSqr（9）= ;Sqr（9）的输出结果是（ ） .Sqr（9）= Sqr（9）Sqr（9）=33=33= Sqr（9）第33题 （1.0分） 题号:739赋值语句:a=123
9、&Mid（123456,3,2）执行后,a变量中的值是（ ） .1233412312334157第34题 （1.0分） 题号:2312执行语句For i=1 to 3: i=i+1 :Next i后变量i的值是3第35题 （1.0分） 题号:703在Visual Basic中最基本的对象是（ ） ,它是应用程序的基石,是其他控件的容器.文本框命令按钮窗体标签第36题 （1.0分） 题号:2310关于DoLoop Until循环正确的描述是不论条件表达式是否为真,至少要执行一次循环体如果的值为假,则一次循环体也不执行的值为真,则一次循环体也不执行的值为真,则要继续执行循环体第37题 （1.0分）
10、 题号:2302在默认情况下,InputBox（）函数返回值的类型为逻辑类型字符串型数值型变体类型第38题 （1.0分） 题号:735表达式Len（123程序设计ABC）的值是（ ） .142017第39题 （1.0分） 题号:2308下面程序段执行结果为（ ）x=Int（Rnd（） + 3） Select Case x Case 5 Print 优秀 Case 4良好 Case 3及格 Case Else不及格End Select优秀良好及格不及格第40题 （1.0分） 题号:960要改变控件的宽度，应修改该控件的（）属性。TopWidthLeftHeight第41题 （1.0分） 题号:1
11、087在一个语句行内写多条语句时，语句之间应该用（）分隔。逗号分号顿号冒号第42题 （1.0分） 题号:2311执行下列程序段输出结果是（ ）x%=2Do while x*;x=x+4Loop*第43题 （1.0分） 题号:729数学表达式3x10在VB中的逻辑表达式为（ ） .3=x=x ANDx=3 OR x=x AND第44题 （1.0分） 题号:2299以下说法错误的是注释语句用来对程序或程序中某些语句做注释,使程序便于理解注释语句是非执行语句任何字符都可以放在注释行中作为注释内容注释语句不能放在执行语句的后面第45题 （1.0分） 题号:936改变控件在窗体中的上下位置应修改控件的（
12、）属性。Wide第46题 （1.0分） 题号:1007下列的逻辑表达式中不正确的是（）。AB AND C=DXY2 AND 31XY AND 1=2三、程序填空 共9题 （共计90分）第1题 （10.0分） 题号:526-【程序填空】题目：在窗体上建立两个文本框Text1（输入数）及Text2（显示结果）， 一个命令按钮Command1（判断）。单击按钮时判断Text1中输入的数值 是否是4的倍数。请在【】处填入正确的内容Private Sub Command1_Click（） Dim x As Integer *SPACE* If IsNumeric（Text1.Text） = 【?】 Th
13、en Text2.Text = 输入错误 Exit Sub End If x = val（【?】） If 【?】 = 0 Then 是4的倍数 Else不是4的倍数 End Sub答案： 1）. False 2）. Text1.Text 或 Text1 3）. x Mod 4第2题 （10.0分） 题号:527窗体上建立了一个文本框Text1，用于显示结果。单击按钮弹出输入对话框录入0-6之间的数值， 判断输入值为星期几。 x = Val（【?】（请输入星期几（06） Select Case 【?】 Case Is = 0 Text1.Text = 星期日（Sunday） Case Is =
14、1星期一（Monday） Case Is = 2星期二（Tuesday） Case Is = 3星期三（Wednesday） Case Is = 4星期四（Thursday） Case Is = 5星期五（Friday） Case Is = 6星期六（Saturday） Case 【? End Select 1）. InputBox 2）. x 3）. Else第3题 （10.0分） 题号:519该程序通过For循环计算一个表达式的值，这个表达式是 1/2+2/3+3/4+4/5 Dim 【?】 As Double, x As Double Dim n As Long Dim i As Int
15、eger sum = 【? n = 0 For i = 1 To 5 x = n / i n = n + 1 Next Form1.Print sum 1）. sum 2）. 0 3）. sum + x 或 x + sum第4题 （10.0分） 题号:524Option Explicit下面是一个体操评分程序，10位评委，除去一个最 高分和一个最低分，计算平均分 （设满分为 10 分） 。 Dim s As Integer Dim Max, Min As Integer Dim i, n, p As Integer 【? Min = 10 For i = 1 To 10 n = Val（InputBox（ 请输入分数： ） If n Max Then【? If n b Then m = aElse m = bEnd IfIf 【?】 Then max = m max =
