单选题
设窗体上有一个文体框Text1和一个命令按钮Co mmand1，并有以下事件过程：
设窗体上有一个文体框Text1和一个命令按钮Co mmand1，并有以下事件过程：
Private Sub Co mmand1＿Click（ ）
Di mS As Stri ng ，ch As Stri ng
S＝＂＂
For k ＝1TO Len（Text1）
ch ＝Mid（Text1，k ，l）
S＝ch ＋S
Next k
Text1．Text ＝S
End Sub
程序执行时，在文本框中输入"Basic"，然后单击命令按钮，则Text1中显示的是（ ）。
发布于 2022-05-11 09:59:31
登录后免费查看答案
关注者
0
被浏览
14
1 个回答
推荐阅读
-
设窗体上有一个文体框Text1和一个命令按钮Command1,并有以下事件过程：Private Sub Command1_Click() Dim S As String , ch As String S=“” For k=1 TO Len(Text1) ch = Mid(Text1,k,l) S=ch+S Next k Text1.Text=SEnd Sub程序执行时，在文本框中输入“Basic”,然后单击命令按钮，则Text1中显示的是
2022-05-11 关注 0 浏览18 1答案
-
下面程序的输出结果是（ ）。Private Sub Co mmand1＿Click（）ch$＝＂ABCDEF＂proc ch Print chEnd SubPrivate Sub proc（ch As Stri ng）S＝＂＂For k ＝Len（ch）To 1Step －1s ＝s ＆Mid（ch ，k ，1）Next kch ＝sEnd Sub
2022-05-11 关注 0 浏览13 1答案
-
下面程序的输出结果是（ ）。Private Sub Co mmand1＿Click（）Ch$＝＂ABCDEF＂proc ch ：Print chEnd SubPrivate Sub proc（ch As Stri ng）s ＝＂＂For k ＝Len（ch）To 1Step －1s ＝s ＆Mid（ch ，k ，1）Next kch ＝sEnd Sub
2022-05-11 关注 0 浏览10 1答案
-
设有下列通用过程：Public Function Fun（xStr As Stri ng）As Stri ngDi mtStr As Stri ng ，strLAs IntegertStr ＝＂＂strL＝Len（xStr）i ＝strL／2DO While i ＜＝StrLtStr ＝tStr ＆Mid（xStr ，i ＋l ，1）i ＝i ＋1LoopFun ＝tStr ＆tStrEnd Function在窗体上画一个名称为Text1的文本框和一个名称为Co mmand1的命令按钮。然后编写下列的事件过程：Private Sub Co mmand1＿Click（）Di mS1As Stri ng S1＝＂ABCDEF＂Text1．Text ＝LCase（Fun（S1））End Sub程序运行后，单击命令按钮，文本框中显示的是（ ）。
2022-05-11 关注 0 浏览8 1答案
-
窗体上有1个名称为List1的列表框，其中已经输入了若干个项目，如图所示；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有下列事件过程。 Private Sub Co mmand1＿Click（）Di mstr As Stri ng ，s As Stri ng ，k As Integers ＝Text1str ＝＂＂For k ＝List1．ListCount －1To 0Step －1If InStr（List1．List（k），s）＞0Thenstr ＝str ＆List1．List（k）＆＂＂End IfNext kIf str ＝＂＂ThenText2＝＂没有匹配的项目＂ Else Text2＝strEnd IfEnd Sub程序运行时，在Text1中输入＂京＂，单击命令按钮，则在Text2中显示的内容是（ ）。
2022-05-11 关注 0 浏览9 1答案
-
在窗体（Name 属性为Form1）上画两个文本框（其Name 属性分别为Text1和Text2）和一个命令按钮（Name属性为Co mmand1），然后编写如下两个事件过程：Private Sub Co mmand1＿Click（）a＝Text1．Text ＋Text2．Text Print aEnd SubPrivate Sub Form＿Load（）Text1．Text ＝＂＂ Text2．Text ＝＂＂End sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（ ）。
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_Click()Text1.Text = "Visual"Me.Text1 = "Basic"Text1 = "Program"End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是
2022-05-11 关注 0 浏览17 1答案
-
设有如图所示窗体和以下程序： Private Sub Co mmand1＿Click（）Text1．Text ＝＂Visual Basic＂End SubPrivate Sub Text1＿LostFocus（）If Text1．Text ＜＞＂BASIC＂ThenText1．Text ＝＂＂Text1．SetFocus End IfEnd Sub程序运行时，在Text1文件框中输入"Basic"（如图所示），然后单击Co mmand1按钮，则产生的结果是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。Private Sub Command1_Click( )Dim str As String, s As String, c As Stringstr = UCase(Text1)s = ""c = "Z"While c >= "A"If InStr(str, c) = 0 Thens = ______End Ifc = Chr$(Asc(c) ______ )WendIf s <> "" ThenText1 = sEnd IfEnd Sub
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：Dim S1 As String, S2 As StringPrivate Sub Form_Load()Text1. Text=””Text2. Text=””End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)S2=s2 & Chr(KeyCode)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)S1=S1 & chr(KeyAscii)End SubPrivate Sub Command1_Click()Text1.Text=S2Text2.Text=S1S1= “”S2= “”End Sub程序运行后，在 Text1 中输入“ abc ”，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为 （ ） 。
2022-05-11 关注 0 浏览17 1答案
