在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件

过程： Private Sub Command1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case 2,4,6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是 ______。

A．10

B．20

C．30

D．40

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

参考答案

查看官方参考答案

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

您可能会需要：

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

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

更多“在窗体上画一个名称为Command1的命令按钮和两个名称分别…”相关的问题

第1题

在窗体上添加1个名称为Commad1的命令按钮，编写以下程序，其功能是，通过调用过程Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，....，a(5)与a(6)的值互换。请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = i Next Call swap(a) For i = 1 To 10 Print a(i); Next End Sub Public Sub swap(______(1)______ As Integer) n =_____(2)______ For i = 1 To ______(3)______ t = b(i): b(i) =b(n - i + 1) : b(n - i + 1) = t Next i End Sub 完善程序，在答题时，务必在答题框中写好题号和答案，如下： (1)： _________ (2)： _________ (3)： _________

点击查看答案

第2题

在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text 1和 Text 2 Text 2。编写如下两个事件过程： Dim str As String, strl As String Private Sub form_load() TextText = " " TextText = " " TextEnabled = False TextEnabled = False End Sub Private Sub Form. KeyPress(KeyAscii As Integer) str= str&Chr(KeyAscii) End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) str1 = strl&Chr(KeyCode) End Sub Private Sub Command1_Click() TextText =str TextText = str1 str= " " str1= " " End Sub 当在设计阶段把窗体KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母abc，然后单击命令按钮，则文本框Text1中显示的内容为 ______ 。

A．abc

B．不显示任何信息

C．ABC

D．出错

点击查看答案

第3题

指出下列分支语句中的错误： If -1 <x> <1 then x="x+1">

点击查看答案

第4题

指出下列赋值语句中的错误。 c*2=d+2

点击查看答案

第5题

下列程序执行后，分别输入54，21，38，打印结果是__ _。 Private Sub Command1_Click() X=InputBox("X") Y=InputBox("Y") Z=InputBox("Z") If X>y Then t=x：x=Y：Y=t If X>z Then t=x：x=z：z=t If y>z Then t=Y：Y=z：z=t Print x,Y,Z End Sub

点击查看答案

第6题

指出双分支语句错误： If x<10 then x="x+10" else end if>

点击查看答案

第7题

运行下列程序，单击窗体，从键盘输入50，则输出结果是。 Private Sub Form_Click() a = Val(InputBox("A=")) Select Case a Case Is < 100: Print a + 1; Case Is < 80: Print a + 2; Case Is < 60: Print a + 3; Case Else: Print a + 4; End Select End Sub

点击查看答案

第8题

指出下列分支语句错误： Select Case x Case x>0 Print “x>0” Case x<0 print case else “x="0”" end select>

点击查看答案

第9题

语句Option Base 1:Dim a(3,4)定义的数组所包含的数组元素的个数是________。

A、7

B、12

C、15

D、20

点击查看答案