在窗体上画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 Integer For i＝Len(ss)To 1 Step－1 m＝m＋Mid(ss，i,1) Next Text1.Text＝UCase(m)End Sub程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是( )。
- A.NUMBER 100
- B.REBMUN
- C.REBMUN 100
- D.001 REBMUN
热度🔥265
参考答案：D
解析：
【解析】题目中程序是将ss字符串进行反向排列，并放到m中去。其中Number空格后的100被当成字符串来处理，最后结果是将"Number 100"反向排列，并通过UCase()函数将所有字母转换成大写，得到001 REBMUN。
【解析】题目中程序是将ss字符串进行反向排列，并放到m中去。其中Number空格后的100被当成字符串来处理，最后结果是将"Number 100"反向排列，并通过UCase()函数将所有字母转换成大写，得到001 REBMUN。
复制题目向AI提问
扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐
在窗体上有一个命令按钮Commandl，编写事件代码如下：
Private Sub Command1_Click()
Dim x As Integer，y As Integer
x＝12：y＝32
Call Proc(x，y)
Debug.Print x；y
End Sub
Public Sub Proc(n As Integer， ByVal m As Integer)
n＝n Mod 10
m＝m Mod 10
End Sub
打开窗体运行后，单击命令按钮，立即窗口上输出的结果是( )。
体检表中有日期/时间型数据"体检时间"，若规定在体检4周后复检，建立生成表查询，生成列"复检时间"要自动给出复检的日期，正确的表达式是
在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Type Record ID As Integer Name As String * 20End TypePrivate Sub Command1_Click() Dim MaxSize， NextChar， MyChar Open "d：\temp\female.txt" For Input As #1 MaxSize＝LOF(1) For NextChar＝MaxSize To 1 Step－1 MyChar＝Input(1， #1) Next NextChar Print EOF(1) Close #1End Sub运行程序，单击命令按钮，其输出结果为( )。
