（ 9 ）在窗体文本框 Text l 中输入 “ 456AbC ” 后，立即窗口上输出的结果是 【 9 】 。Private Sub Textl_KeyPress(KeyAscii As Integer)Select Case DeyAsciiCase 97 To 122Debug.Print Ucase(Chr(KeyAscii));Case 65 To 90Debug.Print Lcase(Chr(KeyAscii));Case 48 To 57Debug.Print Chr(KeyAscii);C

题目

（ 9 ）在窗体文本框 Text l 中输入 “ 456AbC ” 后，立即窗口上输出的结果是 【 9 】 。

Private Sub Textl_KeyPress(KeyAscii As Integer)

Select Case DeyAscii

Case 97 To 122

Debug.Print Ucase(Chr(KeyAscii));

Case 65 To 90

Debug.Print Lcase(Chr(KeyAscii));

Case 48 To 57

Debug.Print Chr(KeyAscii);

Case Else

KeyAscii = 0

End Select

End Sub

相似考题

1.（ 32 ）在窗体中有一个文本框 text1, 编写事件代码如下：Private sub form_click()X=val(inputbox( “ 输入 x 的值 ” ))Y=1If x<> then y=2Text1.value=yEnd sub打开窗体运行后。在输入框中输入整数 12 ，文本框 text1 中输出的结果是A ） 1B ） 2C ） 3D ） 4

2.在窗体中有一个文本框Test1，编写事件代码如下： Private Sub Form_Click() X=Val(InputBox("输入X的值")) Y=1 If X＜＞0 Then Y=2 Text1.Value=Y End Sub 打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是( )。A．1B．2C．3D．4

3.在窗体文本框Text1中输入“456ABC”后，立即窗口上输出的结果是【 】。Private SuB Text1_keyPress(keyAscii As Integer)Select Case keyAsciiCase 97 To 122DeBug.Print Ucase (Chr (keyAscii));Case 65 To 90DeBug.Print Lcase (Chr (keyAscii));Case 48 To 57DeBug.Print chr (keyAscii);Case ElsekeyAscii=0End SelectEnd SuB

4.在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：Private Sub Form_Load()Text1.Text=""Text1.SetFocusFor i=1 To 9Sum=Sum=iNext iText1.Text=SumEnd Sub上述程序的运行结果是A．在文本框Text1中输出45B．在文本框Text1中输出0C． 出错D． 在文本框Text1中输出不定值

参考答案和解析
正确答案：
更多“( 9 )在窗体文本框 Text l 中输入 “ 456AbC ” 后,立即窗口上输出的结果是 【 9 】 。Private Sub Te ”相关问题

  • 第1题：

    窗体上有一个文本框，其Name属性为Text1，如图1所示，并有如下事件过程：上述程序的运行结果是（ ）。

    A. 在文本框Text1中输出55

    B. 在文本框Text1中输出0

    C. 语法错误

    D. 在文本框Text1中输出不定值


    正确答案：C
    C)    【解析】本题考查窗体Load事件的运行。当装
    入窗体事件触发时，通常用于对属性和变量的初始化，不能调用setFOCUS方法，因此程序编译出错。

  • 第2题：

    在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:

    Private Sub Form_load()

    Text1.Text=″″

    Text1.SetFocus

    For i=1 To 9

    Sum=Sum+i

    Next i

    Text1.Text=Sum

    End Sub

    上述程序的运行结果是

    A．在文本框Text1中输出45

    B．在文本框Text1中输出0

    C．出错

    D．在文本框Text1中输出不定值


    正确答案：C
    解析：由于Form_load事件是在窗体加载时发生，所以此时窗体还没有显示，不能用"Tex1.SetFocus"语句获得焦点，故出错。如要改正，需要在此语句前加入"Me.Show"，显示窗体，则可以看到文本框已获得焦点，并执行循环语句，输出"45"。

  • 第3题：

    在窗体中有一个文本框Text1，事件代码如下： Private Sub Form_Click（) X = val（Inputbox（"输入x的值")) Y = 1 If X＜＞0 Then Y = 2 Text1.Value = Y End Sub 打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是______。

    A．1

    B．2

    C．3

    D．4


    D

  • 第4题：

    在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是 ______。

    A．在文本框Text1中输出55

    B．在文本框Text1中输出0

    C．出错

    D．在文本框Text1中输出不定值


    正确答案：C
    解析：焦点只能移到可视的窗体或控件。因为在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以如果不是在Form.Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的控件上的。

  • 第5题：

    在窗体中有一个文本框Testl，编写事件代码如下： Private Sub Form. Click（ ） X=val(Inputbox(”输入x的值”))Y=1 If X<>0 Then Y=2Text1．Value=YEnd Sub． 打开窗体运行后，在输入框中输入整数12，文本框Textl中输出的结果是（ ）。

    A.1

    B.2

    C.3

    D.4


    正确答案：B
    B。【解析】本题考查的是if语句的条件判断。因为输入的值是l2，不等于0，所以输出为2。

相关内容