单选题在窗体上画一个文本框（其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.在窗体中有两个文本框分别为 text1 和 text2 ，一个命令按钮 command1, 编写如下两个事件过程：Private sub command1_click()A=text1.value+text2.valueMsgbox aEnd subPrivate sub form_load()Text1.value= ””Text2.value= ””End sub程序运行时，在文本框 text1 中 78 ，在文本框 text2 中输入 87 ，单击命令按钮，消息框中输出的结果为____ 11 ___

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

3.在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为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

4.（ 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

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

  • 第1题：

    在窗体(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．444

    B．321123

    C．123321

    D．132231


    正确答案：C

  • 第2题：

    （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。

  • 第3题：

    在窗体上画一个文本框(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个大写字符输出。

  • 第4题：

    在窗体(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”。

  • 第5题：

    在窗体上画一个文本框(其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。

  • 第6题：

    在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：

    Private Sub Text1 KeyPress(KeyAscii As Integer)

    Dim str As String,n As Integer

    str=UCase(Chr(KeyAscii))

    n=Len(str)

    Text1.Text=String(n,str)

    End Sub

    程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。

    A．pp

    B．pP

    C．PP

    D．Pp


    正确答案：B
    解析：解答本题的前提是了解下列几个函数的作用：UCase函数的作用是将某字符串中的字符全部转成大写；String(n,str)函数的作用是返回n个重复字符的字符串；Len函数的作用是返回字符串的长度。因为KeyPress事件中接收KeyAscii参数为输入键的ASCII码，输入小写字母“p”后，str为大写字母“P”，n=1，String(n,str)为“P”，所以Text1中在按下键盘上的键时又添加了一个“P”。

  • 第7题：

    在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，则程序的运行结果是______ 。 private sub form_ load text1.text=“” text1.setfocus for k=1 to 5 t=t*k next k text1.text=t end sub

    A． 在文本框中显示120

    B．文本框中仍为空

    C．在文本框中显示1

    D．出错


    正确答案：D

  • 第8题：

    在窗体上画一个文本框(其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"。

  • 第9题：

    在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，则程序的运行结果是( )。 Private Sub Form_Load Text1.Text=" " Text1.SetFocus For k=1 to 5 t=t*k Next k Text1.Text=t End Sub

    A．在文本框中显示120

    B．文本框中仍为空

    C．在文本框中显示1

    D．出错


    正确答案：D

  • 第10题：

    在窗体(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

  • 第11题：

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

    A．在文本框Text1中输出55

    B．在文本框Text1中输出0

    C．出错

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


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

  • 第12题：

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

  • 第13题：

    在窗体上画一个文本框(其中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

  • 第14题：

    在窗体上添加一个文本框Text1，然后编写下列Load事件过程，则程序运行结果是( )。

    Private Sub Form_Load()

    Text1.Text=""

    Text1.SetFocus

    For k=1 To 5

    t=t*k

    Next k

    Text1.Text=t

    End Sub

    A．在文本框中显示120

    B．文本框中仍为空

    C．在文本框中显示1

    D．出错


    正确答案：D
    解析：本题中“Text1.SetFocus”语句运行时会出现错误。因为焦点只能移到可视的窗体或控件，而在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以编译出错。如果不是在Form_Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的窗体的。

  • 第15题：

    在窗体(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正确。

  • 第16题：

    在窗体上添加—个文本框，名为Text1，然后编写如下的Load事件过程，则程序的运行结果是 Private Sub Form_Load( ) Text1.Text=”” Text1.Setfocus t=1 For k=10 To 6 Step-2 t=t*k Next k Text1.Text=t End Sub

    A．在文本框中显示120

    B．文本框仍为空

    C．在文本框中显示480

    D．出错


    正确答案：D
    解析：在触发窗体Form的Load事件时，使用SetFocus将发生冲突，在VisualBasic上调试本题的程序将显示“错误的过程调用或函数”提示。如果删除SetFocus方法的使用，文本框中将显示480。如果用控制按钮的Click事件触发该段事件过程，文本框也会得到480的答案，对此，考生不妨自己上机一试。

  • 第17题：

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

    A. 在文本框Text1中输出55

    B. 在文本框Text1中输出0

    C. 语法错误

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


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

  • 第18题：

    在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程：Private Sub Text1_KeyPress(Key Ascii As Integer)Dim str As String, n As Integer str=UCase(Chr(Key Ascii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。

    A．pp

    B．pP

    C．PP

    D．Pp


    正确答案：B
    解析：解答本题的前提是了解以下几个函数的作用：UCase函数的作用是将某字符串中的字符全部转成大写；string(n,str)函数的作用是返回n个重复字符的字符串；Len函数的作用是返回字符串的长度。因为KeyPress事件中接收KeyAscii参数为输入键的ASCII码，输入小写字母“p”后，str为大写字母“P”，n=1，String(n,str)为“P”，所以Text1中在按下键盘上的键时又添加了一个“P”。

  • 第19题：

    在窗体上画一个文本框(其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事件中加载的控件上的。

  • 第20题：

    在窗体上画一个名称为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是文本框的默认属性。

  • 第21题：

    在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load0 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．China

    C．Beijing

    D．BeijingC


    正确答案：B

  • 第22题：

    在窗体上画一个文体框(其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事件中加载的控件上的。

  • 第23题：

    在窗体上添加一个文本框Text1，然后编写如下的Load事件过程，则程序运行结果为( )。 Private sub Form_Load() Text1.Text="" Text1.SetFocus For k=1 To 5 t=t*k Next k Text1.Text=t End Sub

    A．在文本框中显示120

    B．文本框中仍为空

    C．在文本框中显示1

    D．出错


    正确答案：D
    解析：本题中“Text1.SetFocus”语句运行时会出现错误。因为焦点只能移到可视的窗体或控件，而在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以编译出错。如果不是在Form.Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的窗体的。

相关内容