更多"在窗体上画一个命令按钮,其名称为Command1。程序运行后,单击命令"的相关试题:
[单项选择]在窗体上画一个命令按钮,其名称为Command1。程序运行后,单击命令按钮,输出结果是( )。
Private Sub p1(n As Integer)
For i=n To 1 Step-1
x=String(i,"*")
Print x
Next i
End Sub
Private Sub Command1_Click( )
p1(3)
End Sub
A. ***
B. *
C. *
D. ******
[简答题]
在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框。程序运行后,Command1显示为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在______处填入适当的内容,将程序补充完整。 Private Sub Form_Load( ) Command1. Enabled=False End Sub Private Sub Text1______( ) Command1. Enabled=True End Sub |
[填空题]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请将程序补充完整。
Private Sub Form_Load( )
Command1.Enabled=False
End Sub
Private Sub Text1 【15】 ( )
Command1.Enabled=True
End Sub
[填空题]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Colnmand1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮command1变为可用。请将程序补充完整。
Private Sub Form_Load( )
Command 1.Enabled=False
End Sub
Private SubText1 【2】 ( )
Command1.Enabled=True
End Sub
[单项选择]在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程:
Private Sub Command1_Click( )
a$="software and hardware"
b$=Right(a$,8)
c$=Mid(a$,1,8)
MsgBox aS,b$,c$,1
End Sub
则在弹出的信息框的标题栏中显示的信息是
A. software and hardware
B. software
C. hardware
D. 1
[单项选择]在窗体上画一个命令按钮,然后编写如下代码: Private Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Click( ) Dim MaxSize, NextChar, MyChar Open "d:/vb/tt. txt" For Input As #1 MaxSize = LOF(1) For NextChar = MaxSize To 1 Step - 1 Seek # 1, NextChar MyChar = Input(1, # 1) Next NextChar Print EOF(1) Close $1 End Sub 假设文件d:/vb/tt. txt 的内容为 Hello eveybody! 那么程序运行后,单击命令按钮,其输出结果为 ______。
A. True
B. False
C. 0
D. Null
[填空题]在窗体上画一个命令按钮,然后编写如下代码:
Private Type Record
R_ID As Integer
R_Name As String * 20
Ene Type
Private Sub Commandl_Click( )
Dim M _Sise, N_Char, M_Char
Open" c: /file. txt" For Input As #1
M_sise=LOF(1)
For N_Char = M_Sise To 1 Step - 1
Seek#1, Next Char
M_char = Input(1 ,#1)
Next
Print EOF(1)
Close#1
End Sub
程序运行后,单击命令按钮,其输出结果为 【15】 。
[填空题]在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在 Text1中输入的是abDfdb,则单击Command1按钮后Text1中显示的字符串是
ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click( )
Dim str As String,s As String,c As String
str=UCase(Textl)
s = " "
c = "Z"
While c>="A"
If InStr(str,c)=0 Then
s = ______
End If
c = Chrs(Asc(c) ______)
Wend
If s<>" " Then
Text1 = s
End If
End Sub