题目内容（请给出正确答案）

[主观题]

在窗体上绘制一个文本框，然后编写如下事件过程：Private Sub Form_Click（)x=InputBox（"请输入一个

在窗体上绘制一个文本框，然后编写如下事件过程： Private Sub Form_Click() x=InputBox("请输入一个整数") Print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为()。

A．123

B．456

C．579

D．123456

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“在窗体上绘制一个文本框，然后编写如下事件过程：Private…”相关的问题

第1题

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后

编写如下两个事件过程：程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入一个具有大小写的字符串，则在标签中显示的内容全部为大写。请填空。

点击查看答案

第2题

在窗体上画一个命令按钮，然后编写如下时间过程()。程序运行后，单击命令按钮，先后在两个输入对

在窗体上画一个命令按钮，然后编写如下时间过程（）。

程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是

A. 579

B. 123

C. 456

D. 123456

点击查看答案

第3题

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设

置为空白，然后编写如下事件过程：

Private Sub Command1_Click（）

a = InputBox（"Enter an integer"）

b = InputBox（"Enter an integer"）

Text1.Text = b + a

End Sub

程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是（）。

A．108

B．18

C．810

D．出错

点击查看答案

第4题

在窗体上画一个文本框，其名称为Textl，然后编写如下程序：程序运行后，单击窗体，在文本框中显示的内

在窗体上画一个文本框，其名称为Textl，然后编写如下程序：

程序运行后，单击窗体，在文本框中显示的内容是

A.7

B.8

C.9

D.10

点击查看答案

第5题

在名为Form1的窗体上绘制两个标签（名称分别为Lab1和Lab2，标题分别为“姓名”和“年龄”)、两个文本框（

在名为Form1的窗体上绘制两个标签(名称分别为Lab1和Lab2，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Cmd1，标题为Display)。然后编写命令按钮的Click事件过程，使程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如下图所示。

注意：

程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise57.vbp，窗体文件名为execise57.frm。

点击查看答案

第6题

窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()x = InputBox（

窗体上有一个命令按钮Command1，编写如下事件过程：

Private Sub Command1_Click()

x = InputBox("x=")

y = InputBox("y=")

Print x + y

End Sub

运行后，单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是()。

A、 444

B、 123321

C、 123+321

D、出错信息

点击查看答案

第7题

假定有以下函数过程： Function Fun（S As String) As String Dim s1 As String For i=1 To Len（S)

假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1=UCase(Mid(S，i，1))+s1 Next i Fun=S1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String，Str2 As String Str1=Input Box(“请输入一个字符串”) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为

A．abederg

B．ABCDEFG

C．gfedcba

D．GFEDCBA

点击查看答案

第8题

在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click（） Next i Print Dec End Sub 程序功能为:单击命令按钮,将产生一个输入对话框,此时如果在对话框中输入一个二进制数,并单击“确定”按钮,则把该二进制数转换为等值的十进制数。这个程序不完整,应在横线处填入的内容是

A.Left

B.Right

C.Val

D.Mid

点击查看答案

第9题

在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文

本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。

Private Sub Command1_Click（）

Dim str As String, s As String, c As String

str = UCase（Text1）

s = ""