在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序：Dim ss As StringPrivate Sub Text1_KeyPress(KeyAscii As integer)If chr(KeyAscii)<>””Then ss=ss+chr(KeyAscii)End SubPrivate Sub Command1_Click()Dim m As String,i As IntegerFor i=Len(ss) To 1 step -1m=m+Mid(ss,i,1)NextText1.Text=Ucase(m)End Sub程序运行后，在文本框中输入“Number100”，并单击命令按钮，则文本框中显示的是

试卷相关题目

• 1在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出（X）”菜单项的访问键，可以将该菜单项的标题设置为

  A.退出(X&)

  B.退出(&X)

  C.退出(X#)

  D.退出(#X)

  开始考试点击查看答案
• 2下列关于通用对话框CommonDialog1的叙述中，错误的是

  A.只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开

  B.使用CommonDialog1.ShowColor方法，可以显示“颜色”对话框

  C.CancelError属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错误警告

  D.在显示“字体”对话框前，必须先设置CommonDialog1的flags属性，否则会出错

  开始考试点击查看答案
• 3设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：Function fun(a As Integer,b As Integer)While a>ba=a-bWendfun=aEnd Function在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是

  A.把a=a-b改为a=b-a

  B.把a=a-b改为a=ab

  C.把While a>b改为While a

  D.把While a>b改为While a>=b

  开始考试点击查看答案
• 4标准模块中有如下程序代码：Public x As Integer,y As IntegerSub var_pub()x=10:y=20End Sub在窗体上有1个命令按钮，并有如下事件过程：Private Sub Command1_Click()Dim x As IntegerCall var_pubx=x+100y=y+100Print x;yEnd Sub运行程序后单击命令按钮，窗体上显示的是

  A.100 100

  B.100 120

  C.110 100

  D.110 120

  开始考试点击查看答案
• 5为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：Private Sub Command1_Click()Dim a%,s%,k%s=1a=2For k=2 To 10a=a*2s=s+aNext kText1.Text=sEnd Sub执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是

  A.把s=1改为s=0

  B.把For k=2 To 10改为For k=1 To 10

  C.交换语句s=s+a和a=a*2的顺序

  D.同时进行B）、C）两种修改

  开始考试点击查看答案
• 6下列有关文件的叙述中，正确的是

  A.以Output方式打开一个不存在的文件时，系统将显示出错信息

  B.以Append方式打开的文件，既可以进行读操作，也可以进行写操作

  C.在随机文件中，每个记录的长度是固定的

  D.无论是顺序文件还是随机文件，其打开的语句和打开方式都是完全相同的

  开始考试点击查看答案