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

[主观题]

在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用

过程： Private Sub Command1_Click() n = Val(Text1.Text) If n\2 = n/2 Then f = f1(n) Else f = f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是

A．72 36

B．108 36

C．72 6

D．108 6

提问人：网友smallc 发布时间：2022-01-07

参考答案

查看官方参考答案

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

您可能会需要：

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

安装简答题APP，拍照搜题省时又省心！

更多“在窗体上画一个名称为Text1的文本框，一个名称为Comma…”相关的问题

第1题

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox("") If y.a\2=y.a/2 Then y.b=y.a * y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下列叙述中错误的是()。

A．x是用户定义的类型

B．InputBox函数弹出的对话框中没有提示信息

C．若输入的是偶数，y.b的值为该偶数的平方

D．Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回

点击查看答案

第2题

在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是（）。

A．Private Sub Text1_Change（）

Command1.Caption = "计算机等级考试"

End Sub

B．Private Sub Command1_ Click （）

Caption = "计算机等级考试"

End Sub

C．Private Sub Form1_ Click （）

Text1.Caption = "计算机等级考试"

End Sub

D．Private Sub Command1_ Click （）

Text1.Text = "计算机等级考试"

End Sub

点击查看答案

第3题

在窗体上画一个名称为Txt1的文本框和一个名称为Cmd1的命令按钮，然后编写如下事件过程： Private Sub Cmd1_Click() Dim a1(10, 10) As Integer, i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 a1(i, j) = i + j Next j Next i Txt1.Text = a1(2, 3) + a1(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是。

A、12

B、13

C、14

D、15

点击查看答案

第4题

编写如下事件过程： Private Sub Form-MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Shift=6 And Button=2 Then Print"Hello" End If End Sub 程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下()操作。

A．同时按下Shift键和鼠标左键

B．同时按下Shift键和鼠标右键

C．同时按下Ctrl、Alt键和鼠标左键

D．同时按下Ctrl、Alt键和鼠标右键

点击查看答案

第5题

有如下程序： Private Sub Form_Click() Dim Check,Counter Check=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter,Check End Sub 程序运行后，单击窗体，输出结果为()。

A．15 0

B．20 -1

C．10 True

D．10 False

点击查看答案

第6题

使用文本框显示文字时，只能显示8个字符，则需设定它的______属性为8。

A．Caption

B．PasswordChar

C．MaxLength

D．Value

点击查看答案