在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：Microsoft Visual Basic Programming然后编写如下事件过程：Private Sub Command1_Click（）Open "d:\temp\outf.txt" For Output As #1For i = 1 To Len（Text1.Text） c = Mid（Text1.Text, i, 1） If c >= "A" And c <= "Z" Then
题目
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：Microsoft Visual Basic Programming
然后编写如下事件过程：
Private Sub Command1_Click（）
Open "d:\temp\outf.txt" For Output As #1
For i = 1 To Len（Text1.Text）
c = Mid（Text1.Text, i, 1）
If c >= "A" And c <= "Z" Then
Print #1, LCase（ ）
End If
Next i
Close
End Sub
程序运行后，单击命令按钮，文件outf.txt中的内容是（ ）。
A．MVBP
B．mvbp
C．M
V
B
P
D．m
v
b
p
相似考题
更多“在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下 ”相关问题
-
第1题：
窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。
Private Sub Command1_Click()
Dim x As Integer
x=Val(InputBox(“输入数据”))
Text1=Str(fun(x)+fun(x)+fun(x))
End Sub
Private Function fun(ByRef n As Integer)
Ifn Mod 3=0 Then
n=n+n
Else
n=n*n
End If
________=n
End Function
当单击命令按钮，在输入对话框中输入2时，文本框中显示的是_______。
正确答案：fun 276
fun 276 解析：因为fun是个求值函数，故通过函数名返回值，所以第一空填fun。本题中fun函数的参数n是按地址传送的(即此值不会在函数结束后被销毁)，所以语句Str(fun(x)+fun(x)+fun(x))，据题意可知第一个fun(x)结果为4，第二个fun(x)结果为16，第三次fun(x)结果为256，所以第二空填276。 -
第2题：
设有如下通用过程：
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：
End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。A. 30
B. 25
C. 20
D. 15
正确答案：A
A) 【解析】本题考查函数的参数。数组作为参数进行传递时，VB中默认的参数传递方式为地址传递。过程Fun的功能是计算数组中所有元素的积。数组的元素为2 4 6 8 10，因此最后文本框中显示的内容为30。
-
第3题：
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是
A． Visual
B．Basic
C．Program
D．出错
正确答案：C
解析：Text是文本框的默认属性。 -
第4题：
在窗体上画一个命令按钮(名称为Command1)和一个文本框(名称为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，然后单击命令按钮，则y的值变为______。
正确答案：9
9 解析：本题考查多分支语句Select Case的知识。 Select Case用于实现多分支结构，其使用格式为： Select Case 测试表达式＞
[Case表达式列表1＞]
[语句块1]
[Case 表达式列表2＞]
[语句块2]
[CaseElse]
[语句块n]
End Select
其功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行。如果测试表达式的值等于某一个表达式的值，则选择该语句块的语句执行，执行完毕后退出Case结构。本题中由于x的值为3，符合第一个Case语句的条件，所以执行严y＝x*x后退出Case结构，最后y的值为9。 -
第5题：
在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是
A．2
B．3
C．4
D．5
正确答案：B
题只能计算当i>1所循环的次数。注意i在循环体内被强行加3，到For循环时．还要再加步长1，这相当于因此，n=3。选择B。 -
第6题：
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在（ ）处填入适当的内容，将程序补充完整。
正确答案：
True【解析】当向文本框中输入任何字符时．文本框中的内容发生变化，从而触发Change事件，事件处理程序将命令按钮激活即可。这通过设置Command1.Enabled的属性值为真来实现。