Vb等级考试模拟试题（一） Vb等级考试模拟试题（一） 1、 单选题 1、下面合法的常量是______。 A) 1/2 B) abcd C) 1.2*5 D) False 2、下面_____是不合法的整常数。 A.100 B.&O100 C.&H100 D.%100 3、设a=6,则执行IF IIF(a>5,-1,0) THEN X=0 ELSE X=1后,x的值为______。 A) 5 B) 6 C) 0 D) -1 4、
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
达式A%+B&+C!-D#的结果为______。 A）整型 B）长整型 C）单精度型 D）双精度型 5、设 x=5，表达式 10<=x<=20 的值是______。 A） True B） False C） 0 D） 表达式非法 6、执行 PRINT 9.4\3.7,9.4 MOD 3.7 命令后，结果为______。 A） 2 1 B） 3 0 C） 2 20 D） 1 2 7、下面的__________语句可以实现：先在窗体上输出大写字母A，然后在同一行的第10列输出小写字母b。 A. Print "A";Tab(9);"b" B. Print "A";Spc(8);"b" C. Print "A";Space(10);"b" D. Print "A";Tab(8);"b" 8、设a=4,b=3,c=2,d=1，则表达式IIf(a
d,c,d))的结果为______。 A) 4 B) 3 C) 2 D) 1 9、表达式Int(5*Rnd+1)* Int(5*Rnd-1) 值的范围是______。 A）[0,15] B）[-1,15] C）[-4,15] D）[-5,15] 10、用Select Case语句选择|x|>10情况的语句为：Case______。 A） Not (-10 To 10) B） -10 To 10 C） Is <-10, Is >10 D） Abs(x)>10 11、若x=0，执行语句If x Then x = 0 Else x = 1的结果是______。 A) 实时错误 B) 编译错误 C) x=1 D) x=0 12、下列程序中 s = s + j 语句共执行了______次。 Dim s As Integer Dim i As Integer, j As Integer For i = 1 To 10 Step 2 For j = 1 To 5 Step 2 s = s + j Next j Next i Print s A. 10 B. 20 C. 25 D. 15 13、在Visual Basic应用程序中，以下描述正确的是______。 A) 过程的定义可以嵌套，但过程的调用不能嵌套 B) 过程的定义不可以嵌套，但过程的调用可以嵌套 C) 过程的定义和过程的调用均可以嵌套 D) 过程的定义和过程的调用均不可以嵌套 14、假定有如下的Sub过程： Sub S(x As Single, y As Single) t = x x = t / y y = t Mod y End Sub 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a = 5: b = 4 S a, b Print a, b End Sub 程序运行时，单击命令按钮得到的结果是________。 A. 5 4 B. 1 1 C. 1.25 4 D. 1.25 1 15、下列程序输出结果为______。 Private Sub Command1_Click() For i = 1 To 3 GetValue (i) Next i Print GetValue(i) End Sub Private Function GetValue(ByVal a As Integer) dim S As Integer S = S + a GetValue = S End Function A) 4 B) 5 C) 10 D) 11 16、以下程序的运行结果是______。 Dim x As Integer, y As Integer, z As Integer Sub s2(a As Integer, ByVal b As Integer) a = 2 * a b = b + 2 End Sub Private Sub Command1_Click() x = 4 y = 4 Call s2(x, y) Print x + y End Sub A) 0 B) 8 C) 12 D) 14 17、以下程序段的运行结果是______。 Private Sub Form_Click() nx = 3 Call abcd(nx) Print nx End Sub Public Sub abcd(n As Integer) n = n + 5 End Sub A) 3 B) 5 C) 8 D) 10 18、若要使文本框成为只读文本框，可通过设置______属性值为True来实现。 A) ReadOnly B) Lock C) Locked D) Enabled 19、以下程序运行后，a1.dat文件的
内容
财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容
是______。 Private Sub Form_Click() Dim f1 As Integer, f2 As Integer, f3 As Integer Open "d:\a1.dat" For Output As #1 f1 = 2 f2 = 3 f3 = f2 + f1 Write #1, f1 * f2, f2, f3 Close #1 End Sub A) 2，3，3 B) 6，3，5 C) 2，5，6 D) 无内容 20、下列哪组语句可以将变量a，b的值互换______。 A) a=b : b=a B) a=a+b : b=a-b : a=a-b C) a=c : c=b : b=a D) a=(a+b)/2 : b=(a-b)/2 2、 填空题 1、在VB中声明静态变量的关键字是 static 。 2、表达式10 MOD 16\4的值是 2 。 3、x是小于100的非负数，描述该条件的布尔（逻辑）表达式是 x<100 and x>=0。 4、有如下程序： For i=1 to 3 for j=5 to 1 step -1 print i*j next j,i 程序运行后，语句print i*j的执行次数为 15 。 5、设a=6，则执行x=iif(a>5,-1,0)后，x的值为 -1 。 6、若要使文本框TextBox的ScrollBars属性有效，必须将其 multiline 属性设为True。 7、将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为 true 。 8、VB有3种工作模式,即
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
模式 、运行模式和中断模式。 9、执行语句 B = MsgBox("XXX", ,"YYY")后,在消息框中的标题信息是 yyy 10、Visual Basic中的菜单可分为弹出式菜单和 下拉式 菜单。 11、下列程序的执行结果为 2 。 A=75 If A>60 Then I=1 If A>70 Then I=2 If A>80 Then I=3 If A>90 Then I=4 Print I 12、Format(5,"0.00%")的结果是500.00%。 13、Dim a As Boolean, b As Boolean a = 2 b = 0 Print a + b 执行完程序段，程序输出结果为-1。 14、任意整数X十位上的数字可以表示为(X MOD 100)\10 三、阅读程序 1、以下程序段的执行结果是_______。 For i=1 To 4 x=2 For j=1 To 3 x=1 For k=1 To 2 x=x+3 Next k Next j Next i Print x 7 2、以下程序运行的结果是_______。 Option Base 1 Private Sub Command1_Click() Dim a,b(3,3) a=array(1,2,3,4,5,6,7,8,9) For i=1 To 3 For j=1 To 3 b(i,j)=a(i*j) If (j>=i) Then Print Tab(j*3);Format(b(i,j),"# # #"); Next j Print Next i End Sub 1 2 3 4 6 9 3、在窗体上画一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click() Dim a(4, 4) For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next i End Sub 程序运行后，单击命令按钮，输出结果是_______。 9 12 10 13 4、以下程序段的运行结果是_______。 Private Sub Form_Click() Dim i As Integer, y As Integer i = 0 Do While i <= 4 y = fa(i + 1) i = i + 1 Loop Print y End Sub Function fa(x As Integer) As Integer Dim term As Integer, i As Integer term = 1 For i = 1 To x term = term * i Next i fa = term End Function 120 3、 简单操作题 在考生文件夹中，完成以下
要求
对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗
： 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件：一个命令按钮command1；两个复选框，check1标题为“显示”且默认为选中状态，check2标题为“可用” 且默认为选中状态。（以上操作在属性窗口中完成，如下图所示） 3.按如下要求编写代码：要求选中check1时，窗体标题为“显示按钮”，command1和check2显示，在这种情况下选中check2,command1可用，未选中check2,command1不可用；未选中check1时，窗体标题为“隐藏按钮”，command1和check2隐藏。（若有条件语句，必须用IF….ENDIF语句） 4.请先调试、运行，然后将工程、窗体保存。 4、 简单应用题 在考生文件夹中，完成以下要求： 1． 启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“数据计算”。 2． 请在窗体适当位置增加以下控件：一个标签Label1，标题为“计算结果”，一个文本框Text1，两个命令按钮（名称分别为C1和C2，标题分别为“计算”和“保存”），如图所示。 3． 编写程序计算S的值，直到最后一项的绝对值小于10-6为止（要求将存放结果的变量类型定义成单精度浮点型）。 要求程序运行后，单击“计算”按钮，计算并将结果显示在文本框中；最后单击“保存”按钮，将结果存入考生文件夹中的文件“kssj.dat”中。 4． 在考生文件夹下有标准模块Prog1.bas，其中的Putdata过程可以把结果存入指定的文件，要求考生把该模块文件添加到当前工程中，直接调用该过程。 5． 请先将工程、窗体与模块保存，然后调试、运行并生成可执行程序：Prog1.exe。 5、 综合应用题 在考生文件夹中建立一个名称为“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一个名称为“Menu1”的菜单窗体文件Menu1.frm,要求： 1. 菜单格式与内容如下: 系统(S) 统计(T) 退出 专业 性别 ->男 女 其中,括号内的字符为热键； 各菜单与子菜单的名称与标题相同，但不含热键； -> ：下一级菜单。 2. 将考生文件夹下的窗体文件SJT.frm添加进本工程。 3. 除“专业”菜单的Click()事件调用SJT.frm 窗体，“退出”子菜单的Click()事件执行End语句,其它菜单和子菜单不执行任何操作。 4. 调试运行并生成可执行程序：Menu1.exe。 在考生文件夹中，完成以下要求： 1．启动工程文件Prog1.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”。 2．请在窗体适当位置增加以下控件：两个标签（名称分别为：label1,label2，标题分别为：“十六进制”，“十进制数”），两个文本框（名称分别为：text1,text2，标题分别为空白）和两个命令按钮（名称分别为：command1,command2，标题分别为：“转换”，“保存”），将窗体名称改为“数制转换”（如图所示）。 要求程序运行后，在text1文本框中输入十六进制数，单击"转换"按钮，则在text2文本框中显示对应的十进制数；如果在text1中输入的不是十六进制数，则在消息框中提示“错误！输入内容非十六进制数”（要求在输入的同时判断）。 将十六进制数3F的测试结果存入考生文件夹中的文件"kssj.dat"中。 3．在考生文件夹下有标准模块Prog1.bas，其中的Putdata过程可以把结果存入指定的文件，考生可以把该模块文件添加到自己的工程中，直接调用该过程。 4．请先将工程、窗体与模块保存，然后调试、运行并生成可执行程序：Prog1.exe。 在考生文件夹中，完成以下要求： 1.启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“统计能被3整除的数”。 2.请在窗体适当位置增加以下控件：文本框1（名称为Text1）、列表框1（名称为list1）、列表框2（名称为list2）、列表框3（名称为list3）和三个命令按钮（均为默认名称，标题分别为“读入数据”、“统计”和“写入文件”如图所示）。 要求：程序运行后 单击“读取数据”按钮，读入“INI.TXT”文件中的50个整数，将其存入一个数组A中并同时显示在List1中； 单击“统计”按钮，可统计出能被5整除的数，并将这些数显示在List2中，可统计出能被6整除的数，并将这些数显示在List3中。把能被5、6整除的数的个数显示在文本框Text1、text2中； 在确定正确之后，单击“写入文件”按钮，把Text1和text2中的数据写入考生文件夹中的文件“kssj.dat”中。 3. 在考生文件夹下有标准模块getdata.bas，可以读出文件ini.txtt中的数据，考生可以根据需要把这个模块文件添加到自己的工程中，直接调用过程。 4.请先将工程、窗体与模块保存，然后调试、运行并生成可执行程序：Prog1.exe。
浙公网安备 33021202002483