更多"在窗体上画一个命令按钮,名称为Comraandl。单击该命令按钮时,执"的相关试题:
[单项选择]在窗体上画一个命令按钮,名称为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
[单项选择]在窗体上画一个命令按钮(名称为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,然后单击命令按钮,则以下叙述中正确的是______。
A. 执行y=x*x
B. 执行y=-x
C. 先执行y=x*x,再执行y=-x
D. 程序出错
[单项选择]在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:
Option Base 0
Private Sub Command1_Click( )
Dim city As Variant
city=Array(“北京”,“上海”,“天津”,“重庆”)
Print city(1)
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是
A. 空白
B. 错误提示
C. 北京
D. 上海
[单项选择]在窗体上画一个命令按钮,名称为Command1,然后编写下列代码:
Option Base 0
Private Sub Command1_Click( )
Dim A1(4)As Integer,A2(4)As Integer
For k=0 To 2
A1(k+1)=InputBox("请输入一个整数")
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6.则输出结果为( )
A. 0
B. 1
C. 2
D. 3
[填空题]在窗体上画一个命令按钮,名称为command1,然后编写如下程序:
Private Sub Command1_Click( )
Dim ct As String
Dim nt As Integer
Open "e:/stud. txt" (13)
Do While True
ct=InputBox("请输入姓名:")
If ct= (14) Then Exit Do
nt=Val(InputBox("请输入总分:"))
Write #1, (15)
Loop
Close #1
End Sub
以上程序的功能是,程序运行后,单击命令按钮,则向e盘根目录下的文件stud. txt中添加记录(保留已有记录),添加的记录由键盘输入;如果输入“end”,则结束输入。每条记录包含姓名(字符串型)和总分(整型)两个数据。请填空。
[单项选择]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:
Private Sub Command1_Click( )
For I=1 To 2
For H To 1
Print String(1,"H");
Next
Print
Next
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
A. H
B. H
C. HHHHH
D. H
[单项选择]
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a$, b$,c$, k%
a="ABCD”
b=”123456”
c=""
k=1
Do While k<= Len(a)Or k<=Len(b)
If k<=Len(a)Then
c=c&Mid(a, k, 1)
End If
If k<=Len(b)Then
c=c&Mid(b, k, 1)
End If
k=k+1
Loop
Print c
End Sub
运行程序,单击命令按钮,输出结果是()
A. 123456ABCD
B. ABCD123456
C. D6C5B4A321
D. AlB2C3D456
[单项选择]在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click( )
a$=“software and hardware“
b$=Right(a$,8)
c$=Mid(a$,1,8)
MsgBox a$,,b$,c$,1
End Sub
运行程序,单击命令按钮,则在弹出的信息框的标题栏中显示的是( )。
A. sotfware and hardware
B. software
C. hardware
D. 1
[单项选择]在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程:
Private Sub Command1_Click( )
b=5
c=6
Pdnta=b+c
End Sub
程序运行后,单击命令按钮,输出的结果是______。
A. a=11
B. a=b+c
C. a=
D. False