《vb程序设计模拟试卷》由会员分享，可在线阅读，更多相关《vb程序设计模拟试卷（5页珍藏版）》请在金锄头文库上搜索。
1、VB程序设计模块试卷一、选择题（20）(每小题1分，共20分)1、下列不属于对象的基本特征的是_。A、属性B、方法C、函数D、事件2、工程文件的扩展名为_。A、.frxB、.basC、.vbpD、.frm3、下列选项中不属于事件的是_A、Dblclick B、LoadC、Show D、Keyup4、在VB程序中，调用对象方法的一般格式是_。A、方法.对象名B、对象名方法C、对象名.方法名 参数D、方法名5、在VB中，所有窗体和控件都必须具有的属性是_。A、NameB、FontC、CaptionD、Text6、下列变量声明错误的是_。A、Dim i As IntegerB、Private j A
2、s IntegerC、Static b As BooleanD、Const m As Integer7、VB代码通常是“一行一句，一句一行”，但也可以“一行多句”。若要将多句写到一行上，语句间须用_符号分隔。A、_B、:C、&D、8、表达式3 + 8 5 - 3 2 + 7 Mod 9的值是_。A、2.6B、2C、5.6D、59、判断变量m、n均不为0的逻辑表达式为_。A、m * n 0 B、m * n = 0 C、m 0 Or n 0 D、m * n != 010、可以同时删除字符串前导和尾随空格符的函数是_。A、LTrimB、RTrimC、TrimD、Mid11、语句Print “5*5”
3、的执行结果是_。A、25B、“5*5”C、5*5D、出现错误提示12、执行以下程序段后，窗体上输出的内容是_。 Dim Str1 As String, Str2 As String Str1 = Visual Basic Programing Str2 = QuickPrint Str2 & LCase(Mid(Str1, 7, 6) & Right(Str1, 11)A、Visual basic ProgramingB、Quick basic ProgramingC、quick basic programingD、Quick BASIC Programing13、执行以下语句，显示的消息对话
4、框的标题是_。MsgBox Hello World!, vbOKOnly + vbInformation, HelloA、Hello World!B、vbOKOnlyC、vbInformationD、Hello14、已给整型变量a、b赋初值，现需将a、b中较大值赋给整型变量m，以下程序正确的是_。A、If a b Then m = a Else m = b End IfB、m = (a + b + Abs(a - b) / 2C、If a b ThenD、If a b Then m = am = a If a 13 S = S + 3LoopA、0B、1C、2D、317、在用Dim X(2,
5、3 To 9) As Integer声明的数组中，不包括下列哪一个元素？_。A、X(0, 3)B、X(2, 9)C、X(1, 8)D、X(1, 10)18、Print 语句的一个输出表达式为_，则输出包括日期、时间信息。A、DateB、MonthC、TimeD、Now19、下列哪个属性是用来表示各控件的位置的_。A、WidthB、NameC、TopD、Position20、改变控件在窗体中的上下位置，应修改该控件的_属性。A、TopB、LeftC、WidthD、Right二、填空题(每小题2分，共20分)1、改变控件在窗体中的左右位置，应修改该控件的_属性。2、在打开某窗体时，初始化该窗体中的
6、各控件，应选用_事件。3、语句“dim c as _”定义的变量C，可用于存放控件的Caption属性。4、声明单精度常量PI代表3.14159的语句是_。5、数学表达式“（a3b）Sin（36）”相应的VB表达式是_。6、用随机函数产生一个两位整数的Visual Basic表达式_。7、若变量X、Y、A和B的值分别是5、-3.6、7.8、-5.9，则表达式：(X + Y) (A + B) And Not Y A(j) Then M = A(i): : A(j) = M End IfNext j, iFor i = 1 To 30 If Then Print A(i);Next iEnd Su
7、b4、【程序说明】下列程序判断一个大于1的整数是否为素数。Private Sub Form_Click() Dim N As Integer, i As Integer N = Val(InputBox(请输入N的值：) If N 5 And N 5 Print N, iEnd Sub4、【程序说明】请写出单击窗体后，窗体上的显示结果。Dim str1 As StringPrivate Sub Form_Click() str1 = Form Call S1 Print str1 Call S2 Print str1End SubSub S1() Dim str1 As String str1 = S1 Print str1
