首页 > 计算机等级考试

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

[主观题]

在窗体上画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)

Next

Textl．Text=UCase(n1)

End Sub

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

A．NUMBER 100

B．REBMUN

C．REBMUN 100

D．001 REBMUN

查看答案

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

您可能会需要：

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

安装优题宝APP，拍照搜题省时又省心！

更多“在窗体上画1个命令按钮和1个文本框，其名称分别为Comman…”相关的问题

第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个命令按钮和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

程序

点击查看答案

第3题

在窗体上画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，单击命令按钮，则文本框中显示的内容是______。

点击查看答案

第4题

在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3)和1个命令按钮（名称为Command1)，外

在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，外观如图所示。

在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3)和1个命令按钮（名称为

编写如下程序 Private Sub Form. Load() Text1.Text=" " Text2.Text=" " Text3.Text=" " End Sub Private Sub Command1 Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer,ByVal y As Integer) Do While y＜＞0 tmp=x Mod y x=y y=tmp Loop f=x EndFunction 运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是______。

A．4

B．6

C．8

D．12

点击查看答案

第5题

在窗体上画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．程序出错

点击查看答案

第6题

在窗体上画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

点击查看答案

第7题

在窗体上画两个文本框（其名称分别为Textl和Text2)和一个命令按钮（其名称为 Command1)，然后编写如

在窗体上画两个文本框(其名称分别为Textl和Text2)和一个命令按钮(其名称为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text="Microsoft Visual Basic" End Sub Private Sub Text1_Change() TextText=UCase(Text1.Text) End Sub 程序运行后，单击命令按钮，则在Text2文本框中显示的内容是

A．Microsoft Visual Basic

B．microsoft visual basic

C．MICROSOFT VISUAL BASIC

D．空字符串

点击查看答案

第8题

在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序：Dim ss As StringPr

在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序：

Dim ss As String

Private Sub Text1 KeyPress(KeyAscii As Integer)

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

End Sub

Private Sub Command1 Click（）

Dim m As String，i As Integer

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

m=m+Mid(SS，i，1)

Next

Text1．Text=UCase(m)

End Sub

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

A.NUMtBER l00

B.REBMUN

C.REBM UN l00

D.001 REBMUN

点击查看答案

第9题

在窗体上画1个命令按钮和1个通用对话框，其名称分别为Commandl和CommonDialogl，然后编写如下事件

过程：

Private Sub Commandl_CUck()

CommonDialog1.______="打开文件"

CommonDialog1.Filter="All Files(*.*)|*.*"

CommonDialog1.InitDir="C:\"

CommonDialog1.ShowOpen

End Sub

该程序的

点击查看答案

第10题

在窗体上画1个名称为Command1的命令按钮，然后编写下列程序：Private Sub Command1_Click（）Print

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

Private Sub Command1_Click（）

Print fun("ABCDEFG")

End Sub

Function fun(st As String)As string

stlen=Len(st)

temp=""

For k=1 To stlen／2

temp=temp+Mid(st，k，1)+Mid(st，stlen-k+1，1)

Next k

fun=temp

End Function

程序运行时，单击命令按钮，则在窗体上显示的是（）。

A.ABCDEFG

B.AGBFCE

C.GFEDCBA

D.AGBFCED

点击查看答案

长沙正则教育科技有限公司版权所有 ©2024

湘ICP备20014704号-1 营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）