[单项选择]在窗体上画一个名称为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) Ifc＞=“A”And c＜=“Z”Then Print#1，LCase(c) End lf Next i Close End Sub 程序运行后，单击命令按钮，文件outf.txt中的内容是
A. MVBP
B. mvbp
C. M V B P
D. m v b p

更多"在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的"的相关试题:

[单项选择]在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load （　） Show Text1.Text = " " Text1. SetFocus End Sub Private Sub Command1 Click（　） Text1. Text= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______ 。
A. abodefg
B. 不显示任何信息
C. ABCDEFG
D. 出错

查看答案

[简答题]

在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框。程序运行后，Command1显示为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在______处填入适当的内容，将程序补充完整。
Private Sub Form_Load（　）
Command1. Enabled=False
End Sub
Private Sub Text1______（　）
Command1. Enabled=True
End Sub

查看答案

[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（　）
a = InputBox( "Enter an integer" )
b = Text1. Text
Text1. Text = b + a
End Sub
程序运行后，在文本框中输入456，然后单击命令按钮，在输入对话框中输入123，则文本框中显示的内容是( )。
A. 579
B. 123
C. 456123
D. 456

查看答案

[单项选择]在窗体上画一个名为Text1的文本框和一个名为Command1的命令按钮。要求：程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件Test.dat中，如图所示。请在空格处填上适当的内容，则在以下横线处合适的语句是( )。
Private Sub Command1_Click（　）
Open "c:/test.dat"For______As#1
For i=1 To Len(Text1.Text)
Next i
Close #1
End Sub
A. Input Print#1,Mid(Text1.Text,i,1)
B. Output Print#1,Mid(Text1.Text,i,1)
C. Output Print#1,Left(Text1.Text,i,1)
D. Output Input#1,Mid(Text1.Text,i,1)

查看答案

[填空题]在窗体上画一个名称为Text1的文本框和一个名为Command1的命令按钮，然后编写如下事件过程。
Privace Sub Command1_Click（　）
Dim array1(3，10)As Integer
Dim I，j As Integer
For i=1 to 3
For j=2 to 4
array1(i，j)=i+j
Next j
Next i
Text1.value=array1(2，3)+array1(3，4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是______。

查看答案

[单项选择]在窗体上画一个名为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（　）
Dim arrayl(10, 10)As Integer
Dim i As Integer, j As Integer
For i=1 To 3
For j=2 To 4
arrayl(i, j)=i+j
Next j
Next i
Text1. Text=arrayl(2, 3)+arrayl(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是______。
A. 12
B. 13
C. 14
D. 15

查看答案

[单项选择]在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text 1和 Text 2 Text 2。编写如下两个事件过程：
Dim str As String, strl As String
Private Sub form_load（　）
Text1. Text = " "
Text2. Text = " "
Text1. Enabled = False
Text2. Enabled = 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（　）
Text1. Text =str
Text2. Text = str1
str= " "
str1= " "
End Sub
当在设计阶段把窗体KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母abc，然后单击命令按钮，则文本框Text1中显示的内容为 ______ 。
A. abc
B. 不显示任何信息
C. ABC
D. 出错

查看答案

[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：
Microsoft Visual Basic Programming
然后编写如下事件过程：
Private Sub Command1_CIick（　）
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(C)
End If
Next i
Close
End Sub
程序运行后，单击命令按钮，文件outf. txt中的内容是______。
A. MVBP
B. mvbp
C. M
D. m

查看答案

[单项选择]在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写下列代码：　　Dim SaveAll As String 　　Private Sub Form Load（　）　　Show 　　Text1．Text="" 　　Text1．SetFocus 　　End Sub 　　Private Sub Command1 Click（　）　　Text1．Text=LCase(SaveAll)+SaveAll 　　End Sub 　　Private Sub Form KeyPress(KeyAscii As Integer) 　　SaveAll=SaveAll+Chr(KeyAscii) 　　End Sub 　　程序运行后，直接用键盘输入VB，再单击命令按钮，则文本框中显示的内容为( )。
A. vbVB
B. 不显示任何信息
C. VB
D. 出错

查看答案

[单项选择]在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写下列程序：

Private Sub Command1 click（　）

A=InputBox("请输入日期(1～31)")

t="旅游景点："_

&Ⅱf(A＞0 And A＜=10,"长城","")_

&Ⅱf(A＞10 And A＜=20,"故宫","")_

&Ⅱf(A＞20 And A＜=30,"颐和园","")

Text1.Text=t

End Sub

程序运行后，如果从键盘输入5，则在文本框中显示的内容是( )。
A. 旅游景点：长城
B. 旅游景点：长城颐和园
C. 旅游景点：颐和园
D. 旅游景点：故宫

查看答案

[单项选择]在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写如下程序：
Private Sub Command1_Click（　）
A=InputBox("请输入日期(1～31)")
t="旅游景点:"
& IIf(A＞0 And A＜=10,"长城","")_
& IIf(A＞10 And A＜=20,"故宫","")_
& IIf(A＞20 And A＜=30,"颐和园","")
Text1.Text=t
End Sub
程序运行后，如果从键盘输入5，则在文本框中显示的内容是( )。
A. 旅游景点：长城
B. 旅游景点：长城颐和园
C. 旅游景点：颐和园
D. 旅游景点：故宫

查看答案

[填空题]在窗体上画 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，单击命令按钮，则文本框中显示的内容是 _________。（ 10 ）在窗体上画 1 个命令按钮和 1 个通用对话框，其名称分别为 Command1 和CommonDialog1，然后编写如下事件过程： Private Sub Command1_Click（　） CommonDialog1. _________ = "打开文件"" CommonDialog1.Filter = "All Files(*.*)|*.*" CommonDialog1.InitDir = "C:/" CommonDialog1.ShowOpen End Sub 该程序的功能是，程序运行后，单击命令按钮，将显示"打开"文件对话框，其标题是" 打开文件"，在"文件类型"栏内显示"All Files(*.*)"，并显示C盘根目录下的所有文件，请填空。

查看答案

我来回答:

提交