单选题在窗体上画一个文本框（其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中输出不定值

题目
单选题
在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：Private Sub Form_Load()Text1.Text=""Text1.SetFocusFor i= 1 To 9Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是（　　）。
A

在文本框Text1中输出45

B

在文本框Text1中输出0

C

出错

D

在文本框Text1中输出不定值

相似考题

1.在窗体上画一个文本框(其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中输出不定值

2.在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是 ______。A．27B．28C．29D．30

3.在窗体(Name 属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Commnd1_Click() a=Text1.Text+Text2.Text Print a End Sub Private Sub Form_ Load () Text1 Text=“” Text2 Text=“” End sub程序运行后，在第一个文本框(Text1)和第二个文本框(text2)中分别输入123和321，然后单击命令按钮，则输出结果为______ 。A．444B．321123C．123321D．132231

4.在窗体上画两个文本框，其名称分别为Name1和PassWord1，然后编写如下事件过程Private Sub Form_Load（）ShowName1.Text=""Password1.Text=""Password1.SetFocusEnd SubPrivate Sub Password1_KeyDown（KeyCode As Integer, Shift As Integer）Name1.Text=Name1.Text + Chr（KeyCode - 3）End Sub程序运行后，如果在Password1中输入"hit"，则在Name1文本框中显示的内容是 【8】 。

更多“在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：Private Sub Form_Load()”相关问题

  • 第1题：

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

    A．在文本框Text1中输出55

    B．在文本框Text1中输出0

    C．出错

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


    正确答案：C

  • 第2题：

    在窗体上画一个命令按钮和一个文本框，并将窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_Load() Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Command1_Click() Text1.Text = Ucase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，在键盘上输入abcdefg，单击命令按钮，则文本框中显示的内容为

    A．abcdefg

    B．不显示任何信息

    C．ABCDEFG

    D．出错


    正确答案：C
    解析：将窗体的KeyPreview属性设置为True，在键盘上输入abcdefg时，触发Form_KeyPross事件，变量SaveAll的值为“abcdefg”。由于SaveAll为过程变量，单击命令按钮后，UCase函数将SaveAll的内容转换成大写字符。选项C的答案是正确的。

  • 第3题：

    在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和 Text2)和一个命令按钮(Name属性为Commandl)，然后编写如下两个事件过程： Private Sub Commandl Click() a=TextText+TextText Print a End Sub Private Sub Form. Load() TextText="" Text2．Text="" End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和 321，然后单击命令按钮，则输出结果为 ( )

    A．444

    B．321123

    C．123321

    D．132231


    正确答案：C
    解析：文本框的Text属性表示文本框的内容，当程序执行时，用户在文本框输入的内容会自动保存在该属性中，题中语句 Text1．Text+Text2. Text是实现将两文本框中内容的简单连接。故选项C正确。

  • 第4题：

    在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labe11，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(TextText)+0.5) LabeCaption=Str(x) End Sub 程序运行后，在文本框中输入653，单击命令按钮，标签中显示的内容是______。

    A．27

    B．28

    C．29

    D．30


    正确答案：C
    解析：程序中各部分值的运算过程为：Text1.Text="28.653"Val(Text1.Text)=28.653Val(Text1.Text)+0.5=29.153Int(Val(Text1.Text)+0.5)=29x=29str(x)="29"

  • 第5题：

    窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Form. Load() Show TextSetFocus End Sub Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc(UCase(ch)) Pint Chr(KeyAscii + 4) End Sub程序运行后，在文本框中输入abcde，则在窗体上显示的内容是______。

    A．abcde

    B．efghi

    C．EFGHI

    D．ABCDE


    正确答案：C

  • 第6题：

    在窗体上画一个名称为Text1的文本框，然后编写如下的事件过程： Private Sub Text1_KeyPress(Keyascii As Integer) ... End Sub 若焦点位于文本框中，则能够触发此事件的操作是( )。

    A．左键单击文本框

    B．左键双击文本框

    C．右键单击文本框

    D．按下键盘上的某个键


    正确答案：D
    解析：本题考查控件事件的基础知识。在窗体上每一个控件都是一个对象，都具有属性、事件和方法3个要素。事件是控件可以响应的动作，KeyPress事件当焦点在控件上并且按下键盘上某个键时被触发。

  • 第7题：

    在窗体(Name属性为form1)上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮 (Name属性为Command1)，然后编写如下两个事件过程，该过程的运行结果为______。Private Sub Command1_Click() a = Text1, Taxt + Text2, Text Print aEnd SubPrivate Sub form_ Load() Text1.Text = "123" Text2.Text = "321"End Sub

    A．444

    B．321123

    C．123321

    D．132231


    正确答案：C
    解析：本题的重点是数字和字符串的区别。在“Text1.Text”和“Text2.Text”的值为字符串，对于字符串来讲“+”运算符和“&”运算符是一样的。

  • 第8题：

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

    A． Visual

    B．Basic

    C．Program

    D．出错


    正确答案：C
    解析：Text是文本框的默认属性。

  • 第9题：

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

    A．在文本框Text1中输出55

    B．在文本框Tece1中输出0

    C．出错

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


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

  • 第10题：

    在窗体上画两个文本框(其NAME属性分别为TEXT1和TEXT2)和一个命令按钮(其NAME属性为COMMAND1)，然后编写如下事件过程： PRIVATE SUB COMMAND1_CLICK( ) X=0 N=0 DO WHILE X＜50 x=(x+2) * (x+3) N=N+1 LOOP TEXT1=STR(N) TEXT2=STR(X) END SUB程序运行后，单击命令按钮，在两个文本框中显示的值分别为( )。

    A．1和0

    B．2和72

    C．3和50

    D．4和168


    正确答案：B
    解析：第一次循环后N=1，X=6，第二次循环后N=2，X=72，且此时循环终止。

  • 第11题：

    在窗体上画两个文本框（其Name属性分别为Text1和Tex12）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程： 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。

    A10和0

    B2和100

    C3和50

    D4和168


    B
    略

  • 第12题：

    在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？
    程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为：同学们，你们好。
    略

  • 第13题：

    （13）在窗体上画一个文本框（其Name属性为Text1）,编写下列事件过程，运行结果是。 Private Sub Form_Load() Show Text1.Text="你好！" Text1.SetFocus For i=1 To 15 Sun=Sun+i Next i Text1.Text=Sun End Sub


    正确答案：120
    【解析】For…Next语句以指定次数来重复执行一组语句。其语法是：
    　　For 循环变量=初值 To 终值 [Step 步长]
    　　[循环体]
    　　[Exit For]
    　　Next[循环变量][,循环变量]……
    　　当所有循环中的语句都执行后，步长的值会加到循环变量中。此时，循环中的语句可能会再次执行（基于循环开始执行时同样的测试），也可能是退出循环并从Next语句之后的语句继续执行。如果步长是1，可以省略。
    　　本题中，循环15次，每次循环累加i的值，赋值给Sum，因此Sum的值为120。

  • 第14题：

    在窗体上画一个文本框(Textl)，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char)) Print String(4，KeyAscii) End Sub 程序运行后，在文本框Text1中输入A，则程序在窗体上的输出结果为

    A．a

    B．A

    C．aaaa

    D．AAAA


    正确答案：D
    解析：Chr(x)是将x的值转换为相应的ASCII字符，Asc(x)是返回字符串x中第一个字符的ASCII码，Ucase(“字符串”)将“字符串”中的小写字母转换为大写字母。本程序是将在文本框中输入的字符都转换成4个大写字符输出。

  • 第15题：

    在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() A=Text1.Text+TextText Print a End Sub Private SUb Form胃Load() Text1.Text= " " TextText=" " End Sub程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入33和44，然后单击命令按钮，则输出结果为

    A．77

    B．33+44

    C．3344

    D．4433


    正确答案：C
    解析：对于该题，初学者一般都会认为选项A是答案，这是因为还没有建立数值和字符的概念。在文本框中的内容，在形式上无论是数值还是字符，实际上它都是字符。本题中的加号(+)对字符来讲是起到连接的作用，所以输出的是“3344”。

  • 第16题：

    在窗体上画一个文本框(其NAME属性为TExT1)，然后编写如下事件过程： PRIVATE SUB FORM_LOAD( ) DIM SUM TEXT1="" FOR I=1 TO 10 SUM=SUM+I NEXT I TEXT1=SUM END SUB上述程序的运行结果是( )。

    A．在文本框TEXT1中输出55

    B．在文本框TEXT1中输出0

    C．出错

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


    正确答案：A
    解析：循环完成1到10的求和，循环结束后，系统将求和结果送给了文本框TEXT1，故文本框TEXT1中输出55。

  • 第17题：

    在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程： Private Sub Form_Load() For i=1 To 10 List1.AddItem i * 10 Next i Text1.Text=" " End Sub Private Sub List1_Click() Print List1.Text + Text1.Text End Sub 程序运行后，在文本框中输入“123”，然后双击列表框中的第四行，则在窗体上输出的结果为

    A．40123

    B．163

    C．123

    D．30123


    正确答案：A
    解析：当双击列表框的第四行，对应的Text值是40而不是123。另外，ListBox和TextBox的Text属性返回的均为字符型数据。窗体上显示的是列表框的内容与文本框的内容连接以后的内容，即为40123。

  • 第18题：

    在窗体(Name属性为Forml)上面添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl)，然后编写如下两个事件过程： Private Sub Commandl_Click() a=Text1.Text+Text2.Text Printa End Sub Private Sub Form_Load() Text1.Text="" Text2.Text="" End Sub 程序运行后，在第1个文本

    A．444

    B．321123

    C．123321

    D．132231


    正确答案：C

  • 第19题：

    在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:

    Private Sub Text1_KeyPress(KeyAscii As Integer)

    Dim str As String

    Str=Chr(KeyAscii)

    KeyAscii=Asc(UCase (str))

    Textl.Text=String(2, KeyAscii)

    End Sub

    程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是

    A．bbb

    B．BBB

    C．BB

    D．bb


    正确答案：C
    解析：考查对转换函数Ucase$和Chr$的概念和使用方法。Ucase$(字符串)是指"字符串"中的小写字母转换为大写字母,Chr$(x)是把x的值转换为相应的ASCII字符。

  • 第20题：

    在窗体(Name属性为Forml)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl)，然后编写如下两个事件过程： Private Sub Commandl_Click() a=Text1.Text+Text2.Text Printa End Sub Private Sub Form_Load() Text1.Text="" Text2.Text="" End Sub 程序运行后，在第一个文本框(

    A．165

    B．8778

    C．7788

    D．7887


    正确答案：D

  • 第21题：

    在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text，8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2显示的内容是 ______。

    A．BeijingChina

    B．Chima

    C．Beijing

    D．BeijingC


    正确答案：B
    解析：本题考的是Mid函数，Mid函数是用来返回指定数量的字符串。其中第2个参数是指定返回字符串的起始位置，第3个参数是要返回的字符数，这个参数是可选的，如果省略，就返回从起始位置到字符串最后的所有字符。本题中第3个参数省略了，而起始位置是8．该位置的字符是C，所以最后返回的就是China。

  • 第22题：

    在窗体(NAME属性为FORM1)上画三个文本框(其NAME属性分别为TEXT1、TEXT2和TEXT3)和一个命令按钮(NAME属性为COMMAND1)，然后编写如下两个事件过程： PRIVATE SUB COMMAND1_CLICK( ) TEXT3=TEXT1+TEXT2 END SUB PRIVATE SUB FORM1_LOAD( ) TEXT1="" TEXT2="" TEXT3="" END SUB 程序运行后，在第一个文本框(TEXT1)和第二个文本框(TEXT2)中分别输入5和7，然后单击命令按钮，则文本框(TEXT3)中显示的内容为( )。

    A．12

    B．57

    C．75

    D．空值


    正确答案：B
    解析：完成文本框(TEXT1)和文本框(TEXT2)内容的求和，然后将结果显示在文本框 (TEXT3)中，但文本框的Value属性返回的值是字符串型，故两个字符串进行“+”运算的结果是字符中叠加，即两个字符串相连接。

  • 第23题：

    在窗体上画两个文本框，（其Name 属性分别为Text1和Text2）和一个命令按纽（其Name属性为Command1），然后编写如下事件过程（）

    A1和0

    B2和72

    C3和50

    D4和168


    B
    略

  • 第24题：

    单选题
    在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：Private Sub Form_Load()Text1.Text=""Text1.SetFocusFor i= 1 To 9Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是（　　）。
    A

    在文本框Text1中输出45

    B

    在文本框Text1中输出0

    C

    出错

    D

    在文本框Text1中输出不定值


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

相关内容