vb模拟题1(已讲)

  • 格式:doc
  • 大小:404.00 KB
  • 文档页数:26

11.在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。

程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。

以下能实现上述操作的事件过程是A、Private Sub Text1_Change()Command1.Caption = "计算机等级考试"End SubB、Private Sub Command1_Click()Caption = "计算机等级考试"End SubC、Private Sub Form_Click()Text1.Caption = "计算机等级考试"End SubD、Private Sub Command1_Click()Text1.Text = "计算机等级考试"End SubA B C D12.设a=5,b=4,c=3,d=2,下列表达式的值是3>2*b Or a=c And b<>c Or c>d内部函数-》算术-》关系-》逻辑运算3>7 or 5=3 and 4<>3 or 3>2False or false and true or trueA、1B、TrueC、FalseD、2A B C D13.设a=”MicrosoftVisualBasic”,则以下使变量的b值为”VisualBasic”的语句是A、b=Left(a,10) MicrosoftVB、b=Mid(a,10)从第10个字符取到末尾VisualBasicC、b=Right(a,10) isualBasicD、b=Mid(a,11,10) isualBasicA B C D14.假定有如下的窗体事件过程:Private Sub Form_Click()a$ = "Microsoft VisualBasic"b$ = Right(a$, 5) Basicc$ = Mid(a$, 1, 9) MicrosoftMsgBox a$, 34, b$, c$, 5 msgbox 提示,类型,标题End Sub程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是A、Microsoft VisualB、MicrosoftC、BasicD、5A B C D15.设a="a",b="b",c="c",d="d",执行语句x = IIf((a < b) Or (c > d), "A", "B")后,x的值为变量=iif(表达式,值1,值2)IIf((a < b) Or (c > d), "A", "B")=iif(true or false ,”A”,”B”)A、"a"B、"b"C、"B"D、"A"A B C D16.为了使命令按钮(名称为Command1)右移200,应使用的语句是A、Command1.Move -200B、Command1.Move 200C、Command1.Left = Command1.Left + 200D、Command1.Left = Command1.Left – 200变量名.move 数值x:让控件移到坐标为数值x的地方变量名.left=变量名.left+数值x:让控件相对于它原来的位置移动x距离A B C D17.在窗体上画一个文本框,然后编写如下事件过程:Private Sub Form_Click()x = InputBox("请输入一个整数")Print x + Text1.Text “123”+”456”End Sub程序运行时,在文本框中输入456(text1.text=”456”),然后单击窗体,在输入对话框中输入123(x=”123”),单击“确定”按钮后,在窗体上显示的内容为A、123B、456C、579D、123456A B C D18.在窗体上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000,Enabled 属性设置为False。

程序运行后,如果单击命令按钮,则每隔一秒中在文本框中显示一次当前的时间。

以下是实现上述操作的程序:Private Sub Command1_Click()Timer1._______End SubPrivate Sub Timer1_Timer()Text1.Text = TimeEnd Sub在_____处应填入的内容是A、Enabled = TrueB、Enabled = FalseC、Visible = TrueD、Visible = FalseA B C D19.假定在图片框Picture1中装入一个图形,为了清除该图形(不删除图片框),应采用的正确方法是A、选择图片框,然后按Del键删除的是图片框B、执行语句Picture1.Picture = LoadPicture("")C、执行语句Picture1.Picture = ""D、选择图片框,在属性窗口中选择Picture属性条,然后按回车键A B C D20.在窗体上画一个名称为List1的列表框,一个名称为Label1的标签,列表框中显示若干个项目,当单击列表框中某个项目(list1_click())时,在标签中显示被选中项目的名称(label1.caption=list1.text)。

下列能正确实现上述操作的程序是A、Private Sub List1_Click()Label1.Caption = List1.ListIndexEnd SubB、Private Sub List1_Click()= List1.ListIndexEnd SubC、Private Sub List1_Click() = List1.TextEnd SubD、Private Sub List1_Click()Label1.Caption = List1.TextEnd SubA B C D21.在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()Dim i As Integer, x As IntegerFor i = 1 To 6If i = 1 Then x = iIf i <= 4 Thenx = x + 1Elsex = x + 2End IfNext iPrint xEnd Subi=1,x=1,x=2i=2,x=2+1=3i=3,x=4i=4,x=5i=5,x=7i=6,x=9程序运行后,单击命令按钮,其输出结果为A、9B、6C、12D、15A B C D22.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程,Private Sub Command1_Click()c = "ABCD"For n = 1 To 4Print ____NextEnd Sub程序运行后,单击命令按钮,要求在窗体上显示如下内容:DCDBCDABCD则在____处应填入的内容为A、Left(c,n)B、Right(c,n)C、Mid(c,n,1)D、Mid(c,n,n)A B C D23.执行以下程序段Dim x As Integer, i As Integerx = 0For i = 20 To 1 Step -2 i=20,18,16,14,…,2x = x + i \ 5Next iX=20\5+18\5+16\5+14\5+12\5+10\5+8\5+6\5+4\5+2\5 =4+3+3+2+2+2+1+1+0后,x的值为A、16B、17C、18D、19A B C D24.在Visual Basic工程中,可以作为“启动对象“的程序是A、任何窗体或标准模块B、任何窗体或过程C、Sub Main过程或其他任何模块D、Sub Main 过程或任何窗体A B C D25.假定建立一个名称为Command1的命令按钮数组,则以下说法中错误的是A、数组中每个命令按钮的名称(Name属性)均为B、数组中每个命令按钮的标题(Caption属性)都一样C、数组中所有命令按钮可以使用同一个事件过程D、用名称Command1(下标)可以访问数组中的每一个命令按钮A B C D26.把窗体的KeyPreview属性设置程为True,然后编写如下事件过程Private Sub Form_KeyPress(KeyAscii As Integer)Dim ch As Stringch = Chr(KeyAscii) ch=”A”KeyAscii = Asc(UCase(ch)) keyascii=65Print Chr(KeyAscii + 2)End Sub优先响应窗体的keypress事件程序运行后,按键盘上的“A“键,则在窗体上显示的内容是A、AB、BC、CD、DA B C D27.在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:Private Sub Command1_Click()a = InputBox("请输入日期(1~31)")t = "旅游景点:" & IIf(a > 0 And a <= 10, "长城", "") & IIf(a >10 And a <= 20, "故宫", "") & IIf(a >20 And a <= 31, "颐和园", "")Text1.Text = tEnd Sub程序运行后,如果从键盘上输入16,则在文本框中显示的内容是A、旅游景点:长城故宫B、旅游景点:长城颐和园C、旅游景点:颐和园D、旅游景点:故宫A B C D28.在窗体上画一个名称为Label1的标签,然后编写如下事件过程:Private Sub Form_Click()Dim arr(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 2 To 4For j = 2 To 4arr(i, j) = i * jNext jNext iLabel1.Caption = Str(arr(2, 2) + arr(3, 3))=str(4+9)End Sub程序运行后,单击窗体,在标签中显示的内容是A、12B、13C、14D、15A B C D29.在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function fun(ByVal m As Integer)传值,单向If m Mod 2 = 0 Thenfun = 2Elsefun = 1End IfEnd Function 如果m的值为偶数,返回2;否则返回1Private Sub Command1_Click()Dim i As Integer, s As Integers = 0For i = 1 To 5s = s + fun(i)Next iS=0+fun(1)+fun(2)+fun(3)+fun(4)+fun(5)=1+2+1+2+1=7Print sEnd Sub程序运行后,单击命令按钮,在窗体上显示的是A、6B、7C、8D、9A B C D30.阅读程序:Option Base 1 下界从1开始Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As Integer ReDim arr(3, 2)For i = 1 To 3For j = 1 To 2arr(i, j) = i * 2 + jNext jNext iReDim Preserve arr(3, 4)For j = 3 To 4arr(3, j) = j + 9Next jPrint arr(3, 2) + arr(3, 4)Arr(3,2)+13=3*2+2+13=21 End Sub程序运行后,单击窗体,输出结果为A、21B、13C、8D、25A B C D31.在窗体上画一个名称为Command1 的命令按钮,然后编写如下程序:Option Base 1Private Sub Command1_Click()Dim c As Integer,d As Integerd=0c=6x=Array(2,4,6,8,10,12)For i=1 To 6 依次取数组中每一个数If x(i)>c Thend=d+x(i) 如果数组中元素大于c,在把元素加到d上Else 如果数组元素小于等于c,则用d减去cd=d-cEnd IfNext iD=8+10+12-3*c=30-18=12Print dEnd Sub程序运行后,如果单击命令按钮,则在窗体上输出的内容为____。