窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号(、)处应填入的内容是。Private Sub Text1_LostFocus()Call CheckInput(Text1，500)End SubPrivate Sub Text2_LostFocus()Call CheckInput(Text2，1000)End SubSub CheckInput(t As 、，x As Integer)If Val(t.Text)>x ThenMsgBox"请重新输入!"End IfEnd Sub

试卷相关题目

• 1以下关于过程的叙述中，错误的是。

  A.事件过程是由某个事件触发而执行的过程

  B.函数过程的返回值可以有多个

  C.可以在事件过程中调用通用过程

  D.不能在事件过程中定义函数过程

  开始考试点击查看答案
• 2在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim a(10)As IntegerDim x As IntegerFor i=1 To 10a(i)=8+iNextx=2Print a(f(x)+x)End SubFunction f(x As Integer)x=x+3f=xEnd Function程序运行后，单击命令按钮，输出结果为。

  A.12

  B.15

  C.17

  D.18

  开始考试点击查看答案
• 3在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a=0For i=1 To 2For j=1 To 4If j Mod 2<>0 Thena=a-1End Ifa=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是。

  A.0

  B.2

  C.3

  D.4

  开始考试点击查看答案
• 4设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click()Dim a(3，3)As IntegerFor i=1 To 3For j=1 To 3a(i，j)=i*j+iNext jNext iSum=0For i=1 To 3Sum=Sum+a(i，4-i)Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是。

  A.20

  B.7

  C.16

  D.17

  开始考试点击查看答案
• 5设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click()Dim a(30)As IntegerFor i=1 To 30a(i)=Int(Rnd*100)NextFor Each arrItem In aIf arrItem Mod 7=0 Then Print arrItem；If arrItem>90 Then Exit ForNextEnd Sub对于该事件过程，以下叙述中错误的是。

  A.a数组中的数据是30个100以内的整数

  B.语句For Each arrItem In a有语法错误

  C.If arrItem Mod 7=0……语句的功能是输出数组中能够被7整除的数

  D.If arrItem>90……语句的作用是当数组元素的值大于90时退出For循环

  开始考试点击查看答案
• 6在窗体上画1个文本框，其名称为Text1，然后编写如下过程：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer)Print Chr(KeyCode+2)End Sub程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为。

  A.AA

  B.AB

  C.AC

  D.AD

  开始考试点击查看答案
• 7为了使列表框中的项目呈多列显示，需要设置的属性为。

  A.Columns

  B.Style

  C.List

  D.MultiSelect

  开始考试点击查看答案
• 8在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：Dim Flag As BooleanPrivate Sub Command1_Click()Dim intNum As IntegerintNum=InputBox("请输入：")If Flag ThenPrint f(intNum)End IfEnd SubFunction f(X As Integer)As IntegerIf X<10 ThenY=XElseY=X+10End Iff=YEnd FunctionPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Flag=TrueEnd Sub运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为。

  A.0

  B.5

  C.15

  D.无任何输出

  开始考试点击查看答案
• 9在菜单编辑器中建立1个名称为Menu0的菜单项，将其“可见”属性设置为False，并建立其若干子菜单，然后编写如下过程：Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=1 ThenPopupMenu Menu0End IfEnd Sub则以下叙述中错误的是。

  A.该过程的作用是弹出一个菜单

  B.单击鼠标右键时弹出菜单

  C.Menu0是在菜单编辑器中定义的弹出菜单的名称

  D.参数X、Y指明鼠标当前位置的坐标

  开始考试点击查看答案
• 10窗体上有1个名称为CD1的通用对话框，1个名称为Command1的命令按钮。命令按钮的单击事件过程如下：Private Sub Command1_Click()CD1.FileName=""CD1.Filter="All Files|*.*|(*.DoC．|*.Doc|(*.Txt)|*.txt"CD1.FilterIndex=2CD1.Action=1End Sub关于以上代码，错误的叙述是。

  A.执行以上事件过程，通用对话框被设置为“打开”文件对话框

  B.通用对话框的初始路径为当前路径

  C.通用对话框的默认文件类型为*.Txt

  D.以上代码不对文件执行读写操作

  开始考试点击查看答案