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

[主观题]

设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程： Private Sub

Command1 Click（） X!=Val(Text1．Text) Select Casc x Case Is＜-10，Is＞=20 Print"输入错误" Case Is＜0 Print 20-x Case Is＜10 Print 20 Case Is＜=20 Print x+10 End Seleet End Sub 程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（）。

A.5

B.20

C.25

D.输入错误

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

参考答案

查看官方参考答案

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

您可能会需要：

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

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

更多“设窗体上有一个名为Text1的文本框和一个名为Command…”相关的问题

第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题

输入两个整数M，N，求它俩的最大公约数。 Private Sub Command1_Click() Dim m%, n%，t%，x% m = Val(InputBox("请输入第1个数m：")) n = Val(InputBox(“请输入第2个数n：”)) If m < n Then t = m: m = n: n = t For y = n To 1 Step -1 If Then Print "最大公约数为："; y Exit For End If Next y End Sub

A、y Mod m = 0 And y Mod n = 0

B、m Mod y = 0 And n Mod y = 0

C、m Mod y = 0 or n Mod y = 0

D、y Mod m = 0 or y Mod n = 0

点击查看答案

第3题

如果在程序中要将c定义为静态变量,且为整型数,则应使用的语句是A.Redim a As IntegerB.Static a

如果在程序中要将c定义为静态变量,且为整型数,则应使用的语句是

A．Redim a As Integer

B．Static a As Integer

C．Public a As Integer

D．Dim a As Integer

点击查看答案

第4题

只能用来显示字符信息的控件是A.文本框B.标签框C.图片框D.图像框

只能用来显示字符信息的控件是

A．文本框

B．标签框

C．图片框

D．图像框

点击查看答案

第5题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim num As Integer num=1 DO Until num＞6 Print num； num=num+4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．1 3.4 5.8

B．1 3 5

C．1 4 7

D．无数据输出

点击查看答案

第6题

在日常生活中，我们常常会碰到许多需要解决的问题，以下描述中最适合用计算机编程来处理的是( )

A.确定放学回家的路线

B.计算某个同学期中考试各科成绩总分

C.计算10000以内的奇数平方和

D.在因特网上查找自己喜欢的歌曲

点击查看答案

第7题

把窗体的KeyPreview属性设置为True，然后编写如下过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode+2) End Sub 程序运行后，如果按“A”键，贝愉出结果为 ______。

A．A A

B．A B

C．A C

D．A D

点击查看答案

第8题

MID("你好北京!",3,1)的返回值为( )A."好"B."北"C."

MID("你好北京!",3,1)的返回值为( )

A."好"

B."北"

C."京"

D."!"

点击查看答案

第9题

设有如下通用过程： Public Sub Fun(a()， ByVal x As Integer) For i=1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Commandl Click() Dim arr(5) As Variant For i=1 To 5 arr(i) =i Next n = 10 Call Fun(arr()， n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是

A．10

B．15

C．25

D．24

点击查看答案