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

搜题

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

提问人：网友gdsdmsj 发布时间：2022-01-06

[主观题]

在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，再编写如下程序：Dim 88 As Stri

在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，再编写如下程序：

Dim 88 As String

Private Sub Textl—KeyPress(KeyAscii As Integer)

If Chr(KeyAscii)＜＞””Then ss=ss+Chr(KeyAscii)

End Sub

Private Sub Commandl_Click()

Dim m As String，i As Integer

For i=ten(ss)To 1 Step-1

Ill=m+Mid(88,，i，1)

Textl．Text=UCase(n1)

End Sub

运行程序后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中最示的是

A．NUMBER 100

B．REBMUN

C．REBMUN 100

D．001 REBMUN

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

查看官方参考答案

更多“在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，再编写如下程序：Dim 88 As Stri”相关的问题

第1题

在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程： PriVate Sub Commandl_CUck（) D

在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：

PriVate Sub Commandl_CUck()

Dimalt(1 To 100)As Integer

Fori=1 To 100

arr(i)=Int(Rnd*1000)

Nexti

Max=arr(1)

Min=arr(1)

Fori=1 To 100

If [12] Then

Max=arr(i)

点击查看答案

第2题

在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序： PrivateSubCommand1_Click（

在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：

Private Sub Command1_Click（）

Dim a（10）As Integer

Dim x As Integer

For i=1 To 10

a（i）=8+i

x=2

Print a（f（x）+x）

End Sub

Function f（x As Integer）

x=x+3

f=x

End Function

程序运行后，单击命令按钮，输出结果为（）。

A．12

B．15

C．17

D．18

点击查看答案

第3题

在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，然后编写如下代码：Dim Save All

在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，然后编写如下代码：

Dim Save All As String

Private Sub Commandl_C1iCk()

Text1.Text=Left(UCase(SaveAU)，4)

End Sub

Private Sub Textl_KeyPress(KeyAscii As Intege)

SaveA11=Save All+Chr(KeyAscii)

End Sub

程序

点击查看答案

第4题

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：DimSa

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：

Dim SaveAll As String

Private Sub Command1_Click（）

Text1.Text=Left（UCase（SaveAll），4）

End Sub

Private Sub Text1_KeyPress（KeyAscii As Integer）

SaveAll=SaveAll+Chr（KeyAscii）

End Sub

程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。

点击查看答案

第5题

在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程： PrivateSubCommand1_Cl

在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click（）

Dim arr（1 To 100）As Integer

For i=1 To 100

arr（i）=Int（Rnd*1000）

Next i

Max=arr（1）

Min=arr（1）

For i=1 To 100

If________Then

Max=arr（i）

End If

If________Then

Min=arr（i）

End If

Next i

Print"Max="；Max，"Min="；Min

End Sub

程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。

点击查看答案

第6题

3在窗体上画1个命令按钮（名称为Commandl)和1个文本框（名称为Text1)，然后编写如下事件过程：Privat

3在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Text1)，然后编写如下事件过程： Private Sub Commandl_Click() x=Val(Text1.Text) SelectCaseX Case 1，3 y=X*X CaseIS＞=10，IS＜=-10 y=X Case-10 To 10 y=-X End Select End S

A．执行y=x*x

B．执行y=-x

C．先执行y=x*x，再执行y=-x

D．程序出错

点击查看答案

第7题

在窗体上画1个文本框，其名称为Text1，然后编写如下过程：Private Sub Text1_KeyDown（KeyCode As In

在窗体上画1个文本框，其名称为Text1，然后编写如下过程：

Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)

Print Chr(KeyCode)

End Sub

Private Sub Text1_Key Up(KeyCode As Integer,Shift As Integer)

Print Chr(KeyCode+2)

End Sub

程序运行后，把焦点移到文本框中，此时如果敲击“A”

点击查看答案

第8题

在窗体上画1个文本框，其名称为Text1，然后编写如下过程： PrivateSubText1_KeyDown（KeyCod

在窗体上画1个文本框，其名称为Text1，然后编写如下过程：

Private Sub Text1_KeyDown（KeyCode As Integer,Shift As Integer）

Print Chr（KeyCode）

End Sub

Private Sub Text1_KeyUp（KeyCode As Integer，Shift As Integer）

Print Chr（KeyCode+2）

End Sub

程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为。

A．A

B．A

C．A

D．A

点击查看答案

第9题

在窗体上画1个命令按钮（名称为Command1）和1个文本框（名称为Text1），然后编写如下事件过程：

Private Sub Command1_Click（）

x=Val（Text1.Text）

Select Case x

Case 1，3

y=x*x

Case Is＞=10，Is＜=-10

y=x

Case -10 To 10

y=-x

End Select

End Sub

程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是（）。

A．执行y=x*x

B．执行y=-x

C．先执行y=x*x，再执行y=-x

D．程序出错

点击查看答案

第10题

在窗体上画1个文本框，其名称为Text1，然后编写如下过程： Pfivme Sub Text1_KeyDown（KeyCode As In

在窗体上画1个文本框，其名称为Text1，然后编写如下过程： Pfivme Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Text1_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

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

自考本科报名要什么条件与要求初中没毕业可以自考大专吗有什么限制吗自考专升本的报名时间和考试时间是几月几日自考本科报名需要多少钱收费标准是什么英语专业自学考试怎么报名成人自考本科报名时间2024 高中毕业怎么自考大专需要哪些流程自考本科每年都可以报名吗什么时候考试自考本科什么时候可以报名一年可以考几次自考本科在哪里考报名流程是怎样

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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