VB考试题及答案.pdf

1下列不是 VB 常量的是B。 A）3.14B）Name C)#10/18/2007#D)True 2确定控件在窗体上位置的属性是C。 A）Width 和 HeightB）Width 和 TopC）Top 和 LeftD）Top 和 Height 3数学表达式 1X10 表示成正确的 VB 表达式为B。 A）1X10B）X=1 And X10 C) X=1 Or x10D) X=1 And 10 4. 下面的_ B _语句可以实现：先在窗体上输出大写字母 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“ 5. 下列控件中，不能改变大小的控件是D。 A）TextBoxB）LabelC）FrameD）Timer 6Visual Basic 过程的编写是在D中进行的。 A）窗体窗口B）工程资源管理器窗口C）属性窗口D）代码 编辑窗口 7. 在 Visual Basic 中，声明全局变量应该用D关键字。 A）DimB）PrivateC）StaticD）Public 8. 在 Visual Basic 表达式中，运算符的运算顺序为A。 A）算术运算符字符串运算符关系运算符逻辑运算符 B）逻辑运算符关系运算符字符串运算符算术运算符 C）字符串运算符算术运算符关系运算符逻辑运算符 D）关系运算符逻辑运算符算术运算符字符串运算符 9. 下列属于非法调用的函数是A。 A）sqr(-5)B)Sgn(-5)C)Exp(-5)D)Int(-5) 10. 下列能够正确输出”a=8”形式的语句是B。 A）print a=3+5B）pirnt “a=”;3+5 C）print “a=3+5”D）print a=;3+5 11. 下列符号中，可以用作 VB 变量名的是C。 A）x.y.zB)3xyzC)x_yzD)Integer 12. 可以删除字符串两端空格的函数是A。 A）TrimB）RtrimC）LtrimD）Mid 13. 函数 Int(Rnd*80)+1 是在D范围内产生随机整数。 A）0，80B）0，79C）1，79D）1，80 14. 下列四个字符串进行比较，最大的是D。 A）“9977 “B）“CD45 “C）“Cinema “D）“text “ 15. 要使文本框可以显示多行文本，需设置A属性为 True。 A）MultiLineB）EnabledC）MaxLengthD）Locked 16已知 f=“12345678” ，则表达式 val(Left(f,3)+val(Mid(f,4,2)的值是A。 A）168B)12345C)123D)45 17. 执行语句：Msgbox “北京欢迎您！”,1,“2008” ，所产生的消息对话框的标题是 B。 A）北京欢迎您！B）2008C）0D）1 18下面正确的赋值语句是C。 A）y=3xB)3*x=yC)y=3*xD)x+y=10 19. 设 a=6,则执行 IF IIF(a5,-1,0) THEN X=0 ELSE X=1 后,x 的值为C。 A) 5B) 6C) 0D) -1 20. 在 Visual Basic 中，表达式 y1+z2=a*Sin(b*x+c)+k 的类型是B。 A）算术表达式B）关系表达式C）逻辑表达式D）字符表 达式 21. 如果变量 a=50、b=“ABC “、c=“abc “、d=10，则表达式 a cAnd b c 的值是 B。 A）TrueB）FalseC）YesD）No 22. 若 Dim b(3)As Integer ,则 Ucase(Chr(97) End Sub Else Print”; End If Next j Print Next i A)B)C) D) 39. 下列程序段的循环结构执行后，i 的输出值是B。 Dim y As Integer For i=2 To 10 Step 2 y=y+i Next i Print i A）11B）12 C）13D）因为 y 初值不知道，所以不确定 40. 下面分别是求两个数中的大数的程序段，不正确的是D。 A）Max=IIf(xy,x,y)B）If xy Then Max=x Else Max=y C）Max=xD）If y=x Then Max=y If y=x Then Max=yMax=x 填空题填空题 1VB 工程文件的扩展名为.vbp，窗体文件的扩展名为*.frm。 2若要将窗体 Forml 隐藏起来，调用语句为form1.hide。 3Visual Basic 的三种工作模式是设计、运行和中断。 4在调用过程时参数传递的两种方式是按值和按地址。 5 下面程序的功能是找出 100 到 999 之间所有的“水仙花数”， 请用正确的内容填空。 所谓“水 仙花数”是指一个三位数，其各位数字的立方和等于该数本身，例如 153=13+53+33，故 153 是“水仙花数”。 Private Sub Form Click( ) Dim p As Integer For n =100 To 999 a= int(n/100) b=Int(n-a*100)/10) c=n Mod10 p=a3+b3+c3 Ifp=nThen Print n; 是“水仙花数” End If Next n 6以下程序实现每次单击按钮 Command1 时，标签 Label1 在窗体 Form1 中向右移动 100 个标准单位；当标签移出窗体右边界时，再次单击 Command1，标签 Label1 回到窗体 的左边界。 Private Sub Command1_Click() IfLabel1.Left Form1.Width then Label1.left=0 Else Label1.left=label1.left+100 End If End Sub 7执行下面过程后，窗体上显示的是13。 Private Sub Form_Click() Dim a(10,10) as Integer Dim i as Integer，j as Integer For i=1 to 10 For j=1 to 10 a(i,j)=i*j next j next i print a(2,2)+a(3,3) end sub 编程题编程题 1编写程序，分别用 InputBox 函数接收两个整数，在窗体中输出其中的较大数。(10) 2S=1+22+32+.+n2，问 n 最小为多少时 S 的值大于 10000，请编程计算 n 的值。 （10 分） 。 3用循环语句编程输出下列图形（10 分） 4利用随机函数模拟产生 10 名学生的VB 课程期末考试成绩（0100） ，然后将成绩按 从大到小的次序排序输出。 （10 分） 5 编写程序，分别用 InputBox 函数接收两个整数，在窗体中输出其中的较大数。(10) 6编写程序将自然数 3100 中的所有素数打印出来，并统计其个数（10 分） 。 7用循环语句编程输出下列图形（10 分） 编程一： Private Sub Command1_Click() a = Val(InputBox(“请输入 A 的值“) b = Val(InputBox(“请输入 B 的值“) If a b Then Print “两个数中 A 大“ Else Print “两个数中 B 大“ End If End Sub 编程二： Private Sub Command1_Click() Dim sAs Integer,nAs Integer s = 0 n = 0 Do While s = 1000 n =n+ 1 s = s +n 2 Loop Print n End Sub 编程三： Private Sub Form_Load() Form1.Show Dim Att As String For i = 0 To 4 Print String(i * 2 + 1, “*“) Next End Sub 编程四： Option Base 1 Private Sub Form_Click() Dim a(10)As Integer For i = 1 To 10 a(i) = Int(Rnd * 101) Print a(i); Next i Print For i = 1 To 9 For j = i + 1 To 10 If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If End Sub 编程五： 同一 编程六： Private Sub Command1_Click() Dim i As Integer, mAs Integer, flag