在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：Dim S1 As String, S2 As StringPrivate Sub Form_Load()Text1. Text=””Text2. Text=””End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)S2=s2 & Chr(KeyCode)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)S1=S1 & chr(KeyAscii)End SubPrivate Sub Command1_Click()Text1.Text=S2Text2.Text=S1S1= “”S2= “”End Sub程序运行后，在 Text1 中输入“ abc ”，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为 （　　） 。

试卷相关题目

• 1在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(KeyAscii As Integer)……End Sub假定焦点已经位一地文本框中，则能够触发 KeyPress 事件的操作是

  A.单击鼠标

  B.双击文本框

  C.鼠标滑过文本框

  D.按下键盘上的某个键

  开始考试点击查看答案
• 2设有如下通用过程：Public Function Fun(xStr As String)Dim tStr As String, srtL As Integer tStr+””strL=Len(xStr)i=1Do While i<=strL/2tStr=tStr &amp;Mid(xStr,i ,1)&amp; Mid (xStr ,strL-i+1,1)i=i+1LoopFun=tStrEnd Function在窗体上画一个名称为 Textl 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程：Private Sub Command 1_ Click()Dim S1 As StringS1=”abcdef”Text1.Text=UCase(Fun(S1))End Sub程序运行后，单击命令按钮，则 Text1 中显示的是 （　　） 。

  A.ABCDEF

  B.abcdef

  C.AFBECD

  D.DEFABC

  开始考试点击查看答案
• 3有以下程序：Sub subp(b()As Integer)For i=1To4b(i)=2-iNextiEnd SubPrivate Sub Command1_Click()Dim a (1 To 4)As Integera(1)=5a(2)=6a(3)=7a(4)=8subpa()For i=1 To4Print a (i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为 （　　） 。

  A.2468

  B.5678

  C.10121416

  D.出错

  开始考试点击查看答案
• 4以下叙述中正确的是 （　　） 。

  A.一个 Sub 过程至少要一个 Exit Sub 语句

  B.一个 Sub 过程必须有一个 End Sub 语句

  C.可以在 Sub 过程中定义一个 Function 过程，但不能定义 Sub 过程

  D.调用一个 Function 过程可以获得多个返回值

  开始考试点击查看答案
• 5有以下程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer,j As IntegerReDim arr(3,2)For i=1 To 3For j=1 To 2arr (i,j)=i*2+jNext jNext iReDim Preserve arr(1,4)For j=3 To 4arr(3,j)=j+9Next jPrint arr(3,2);arr(3,4)End Sub程序运行后，单击窗体，输出结果为 （　　） 。

  A.8 13

  B.0 13

  C.7 12

  D.0 0

  开始考试点击查看答案
• 6以下说法正确的是 （　　） 。

  A.任何时候都可以通过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器

  B.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器

  C.任何时候都可以通过单击标准工具栏上的“菜单编辑器”按钮打开菜单编辑器

  D.只有当代码窗品为当前活动窗口时，才能找开菜单编辑器

  开始考试点击查看答案
• 7在窗体上画一个通用对话框，其名称为 CommonDialog1 ，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click()CommonDialog1. Filter=”All Files(*.*)|*.*Text Files”&amp;_“(*.txt)|*.txt| Executable Files(*.exe)|*.exe”CommonDialog1. Filterindex=3CommonDialog1. Show OpenMsgBox CommonDialog1. FileNameEnd Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 （　　） 。

  A.All Files(*.*)

  B.Text files(*.txt)

  C.Executable Files(*.ext)

  D.不确定

  开始考试点击查看答案
• 8以下叙述错误的是

  A.一个工程中可以包含多个窗体文件

  B.在一个窗体文件中用 Public 定义的通用过程不能被其他窗体调用

  C.窗体和标准模块需要分别保存为不同类型的磁盘文件

  D.用 Dim 定义的窗体层变量只能在该窗体中使用

  开始考试点击查看答案
• 9以下叙述中错误的是（）

  A.语句“ Dim a, b As Integer ”声明了两个整型变量

  B.不能在标准模块中定义 Static 型变量

  C.窗体层变量必须先声明，后使用

  D.在事件过程或通用过程内定义的变量是局部变量

  开始考试点击查看答案
• 10设有语句： Open "d: ＼ Text.txt" For OutputAs#1 ，以下叙述中错误的是（）

  A.若 d 盘根目录下无 Text.txt 文件，则该语句创建此文件

  B.用该语句建立的文件的文件号为 1

  C.该语句打开 d 盘根目录下一个已存在的文件 Text.txt ，之后就可以从文件中读取信息

  D.执行该语句后，就可以通过 Print# 语句向文件 Text.txt 中写入信息

  开始考试点击查看答案