在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click()strText = InputBox("请输入")Text1.Text = strTextEnd SubPrivate Sub Text1_Change()Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是

试卷相关题目

• 1语句Print 5/4*65 Mod 2的输出结果是

  A.0

  B.1

  C.2

  D.3

  开始考试点击查看答案
• 2以下关系表达式中，其值为False的是

  A."ABC">"AbC"

  B."the"<>"they"

  C."VISUAL"=UCase("Visual")

  D."Integer">"Int"

  开始考试点击查看答案
• 3在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_Click()Text1.Text = "Visual"Me.Text1 = "Basic"Text1 = "Program"End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是

  A.Visual

  B.Basic

  C.Program

  D.出错

  开始考试点击查看答案
• 4确定一个控件在窗体上的位置的属性是

  A.Width和Height

  B.Width或Height

  C.Top和Left

  D.Top或Left

  开始考试点击查看答案
• 5以下关于变量作用域的叙述中，正确的是

  A.窗体中凡被声明为Private的变量只能在某个指定的过程中使用

  B.全局变量必须在标准模块中声明

  C.模块级变量只能用Private关键字声明

  D.Static类型变量的作用域是它所在的窗体或模块文件

  开始考试点击查看答案
• 6在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x ^ 2)Elsey = Sgn(x)End IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是

  A.-5

  B.25

  C.1

  D.-1

  开始考试点击查看答案
• 7一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是

  A.变量X、Y的作用域相同

  B.Y的作用域是Model1

  C.在Form1中可以直接使用X

  D.在Form2中可以直接使用X和Y

  开始考试点击查看答案
• 8在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是

  A.Drive1_Change

  B.Drive1_Click

  C.Dir1_Click

  D.Dir1_Change

  开始考试点击查看答案
• 9在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:Option Base 1Private Sub Command1_Click()Dim as = 0a = Array(1,2,3,4)j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是

  A.4321

  B.1234

  C.34

  D.12

  开始考试点击查看答案
• 10在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是

  A.Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii < 65 Or KeyAscii > 90 ThenMsgBox "请输入大写字母"KeyAscii = 0End IfEnd Sub

  B.Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode < 65 Or KeyCode > 90 ThenMsgBox "请输入大写字母"KeyCode = 0End IfEnd Sub

  C.Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Asc(Text1.Text) < 65 Or Asc(Text1.Text) > 90 ThenMsgBox "请输入大写字母"End IfEnd Sub

  D.Private Sub Text1_Change()If Asc(Text1.Text) > 64 And Asc(Text1.Text) < 91 ThenMsgBox "请输入大写字母"End IfEnd Sub

  开始考试点击查看答案