网友您好，请在下方输入框内输入要搜索的题目：

搜题

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

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

[主观题]

设窗体上有一个名为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.输入错误

简答题官方参考答案（由简答题聘请的专业题库老师提供的解答）

查看官方参考答案

更多“设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程： Private Sub”相关的问题

第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

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

2024年成人自考什么学校好如何选学校 2024自考大专报名时间和截止日期分别是什么时候 2024年上海自考报名及考试时间分别是什么时候 2024四川自考专升本报考要求一年可以报几次 2024年自考本科报名时间和网上报名系统入口 2024年成人自考报名及考试时间分别是什么时候 2024年自考本科报名时间各省报考时间一览表 2024年河南下半年自学考试报名时间及入口自考考试考几门都需要考哪些科目 2024下半年甘肃自考报名及考试时间是什么时候

购买搜题卡查看答案

购买前请仔细阅读《购买须知》

请选择支付方式

微信支付

支付宝支付

点击支付即表示你同意并接受《服务协议》和《购买须知》

立即支付已付款，但不能查看答案，请点这里登录即可>>

搜题卡使用说明

1. 搜题次数扣减规则：

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次