更多"在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Te"的相关试题:
[单项选择]在窗体中添加一个命令按钮Commandl和一个文本框Text1,编写命令按钮Com-mand1 的 Click事件代码;
Private Sub Command1_Click( )
Dim S As String*20
S=Text1. Text
End Sub
该程序的功能是当单击按钮Command1时,把变量S中内容写入一个顺序文件 datl. dar中,正确的程序段是 ( )
A. Open "datl. dat", For lnput As#1
B. Write井1,S Open"datl. dat" For Output As#1
C. Open"dat", For Binary As #1
D. Close #1 Open datl. dat"For Random As
[单项选择]在窗体上画一个命令按钮和一个文本框,其名称分别为Commandl和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程: Private Sub Commandl_Ciick( ) a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是______。
A. 108
B. 18
C. 810
D. 出错
[单项选择]
在窗体上画一个命令按钮和一个文本框,名称分别为Commandl和Text1,然后编写如下程序:
Private Sub Commandl_click( )
a=InputBox(“请输入日期(1~31)”)
t="旅游景点:"
& IIf(a>0 And a<=10,"长城","")_
& IIf(a>10 And a<=20,"故宫","")_
& IIf(a>20 And a<=31,"颐和园","")
Text1.Text=t
End Sub
程序运行后,如果从键盘上输入16,则在文本框显示的内容是()。
A. 旅游景点:长城故宫
B. 旅游景点:长城颐和园
C. 旅游景点:颐和园
D. 旅游景点:故宫
[单项选择]
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:Microsoft Visual Basic Programming 然后编写如下事件过程:
Private Sub Commandl_Click( )
Open"d:/temp/outf,txt"For Ouput 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 V V B b P p
[填空题]在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Commandl。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat中。请在空白处填上适当的内容,将程序补充完整。
Private Sub Command1_Click( )
Open"c:/test.dat"For Output As #1
For I=1 to Len(Text1.text)
______
Next I
Close #1
End Sub
[单项选择]在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Commandl Click( ) Dim arrayl(10,10)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=2 To 4 array l(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
[填空题]
在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在Text1中输入的是abDfdb,则单击Comrnand1按钮后Text1中显示的字符串是
ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click( )
Dim str As String,s As String,c As String
str=UCase(Text1)
S=""
C="Z"
While c>="A"
If lnStr(str,C)=0 Then
s= 【1】
End If
c=Chr$(Asc(C) 【2】 )
Wend
If s<>""Then
Text1=S
End If
End Sub
[填空题]在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运 行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未 在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在 Text1中输入的是abDfdb,则单击Command1按钮后Text1中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click( )
Dim str As String, s As String, c As String str = UCase(Text1)
s = ""
c = "Z"
While c >= "A"
If InStr(str, C)= 0 Then s = _________
End If
c = Chr$(Asc( C)_________ ) Wend
If s <> "" Then
Text1 = s
End If
End Sub
[单项选择]在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编写命令按钮Command1的Click事件代码:
Private Function fun(x As Long)As Boolean
If x Mod 2=0 Then
fun=True
Else
fun=False
End If
End Function
Private Sub Command1_Click( )
Dim n As Long
n=Val(Text1.Text)
p=IIf(fun(n),"奇数","偶数")
Label1.Caption=n & "是一个"& p
End Sub
程序运行后,在文本框中输入20,单击命令按钮后,标签中的内容为( )。
A. 20是一个奇数
B. 20
C. 20是一个偶数
D. 2