在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后, Com
Private Sub Form_Load()
Command1 Enabled=False
End Sub
Private Sub Text1_ ________ ()
Command1 Enabled=True
End Sub
Private Sub Form_Load()
Command1 Enabled=False
End Sub
Private Sub Text1_ ________ ()
Command1 Enabled=True
End Sub
Private Sub Command1_Click()
Dim a As String
A="123456789"
For i=1 To 5
Print Space(6-i);Mid $ (a,______ ,2*i-1)
Next i
End Sub
程序运行后,单击命令按钮,窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。
Private Sub Combol_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
For i=0 To Combo1 ListCount-1
If Combo1 Text= 【 12 】 Then
Label2 Caption=" 输入项已在组合框中。 "
Exit Sub
End If
Next i
Label2 Caption=" 已成功添加新输入项。 "
Combo1 ______ Combo1 Text
End If
End Sub
A.窗体的 Name 属性指定窗体的名称,用来标识一个窗体
B.窗体的 Name 属性值是显示在窗体标题栏中文本
C.可以在运行期间改变窗体的 Name 属性的值
D.窗体的 Name 属性值可以为空
A.打开一个工程文件时,系统自动装入与该工程有关的窗体文件
B.保存 Visual Basic 程序时,应分别保存窗体文件及工程文件
C.Visual Basic 应用程序只能以解释方式执行
D.窗体文件包含该窗体及其控件的属性
A.Private Sub Text1_Click()
Label1.Caption=Textl.Text
End Sub
B.Private Sub Text1_Change()
Label1.Caption=Text1.Text
End Sub
C.Private Sub Label1_Ctrange()
Label1.Caption=Text1.Text
End Sub
D.Private Sub Label1_Click()
Label1.Caption=Text1.Text
End Sub
Private Sub Commandl_Click()
Counter=0
For i=1 To 4
For j=6 To 1 Step -2
Counter=Counter+1
Next j
Next i
Label1.Caption=Str(Counter)
End Sub
程序运行后,单击命令按钮,标签中显示的内容是()。 A.11
B.12
C.16
D.20
Option Base 0
Private Sub Command1_Click()
Dim A (4)As Integer,B(4) As Integer
For k=0 To 2
A(k+1)=InputBox(“ 请输入一个整数 ”)
B(3-k)=A(k+1)
Next k
Print B(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输入结果为()。 A.0
B.2
C.3
D.4
A.若 d 盘根目录下无 Text.txt 文件,则该语句创建此文件
B.用该语句建立的文件的文件号为 1
C.该语句打开 d 盘根目录下一个已存在的文件 Text.txt ,之后就可以从文件中读取信息
D.执行该语句后,就可以通过 Print# 语句向文件 Text.txt 中写入信息
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!