更多"[单选题]题 （1.0分）在窗体中添加一个命令按钮和一个文本框,并编写"的相关试题:
[单选题]在窗体中添加一个命令按钮和一个文本框,并编写如下程序代码:
Private Sub Command1_Click()
For a = . To .
Y = .
For b = . To 1.
For C = . To .
X = X + .
Y = y + .
Next C
Next b
Next a
Text.Text = y
End Sub
A.61
B.60
C.36
D.6
[单选题]窗体上有一个按钮和一个文本框,程序执行后,在文本框中输入12345,单击按钮后的输出结果为().
Private Sub Command1_Click()
Dim A As Integer,B As Integer
Textl.SelStart=.
Textl.SelLength=.
A=VaL(Textl.SelText)
B=Len(Textl.Text)
Print A*B
End Sub
A.68
B.115
C.170
D.1170
[单选题]在窗体上面一个命令按钮,名称为Command1,单击命令按钮时,执行如下事件过程:
Private Sub Command1_Click()
A$=""software andhardware""
B$=Right(a$,8)
C$=Mid(a$,1,8)
MsgBox a$,,b$,c$,1
End Sub
则在弹出信息框的标题栏中显示的信息是().
A.software and hardware
B.software
C.hardware
D.1
[单选题]第265题 （1.0分）
在窗体上面一个命令按钮,名称为Command1,单击命令按钮时,执行如下事件过程.
Private Sub Command1_Click()
A$=""software andhardware""
B$=Right(a$,8)
C$=Mid(a$,1,8)
MsgBox a$,,b$,c$,1
End Sub
则在弹出信息框的标题栏中显示的信息是().
A.software and hardware
B.software
C.hardware
D.1
[单选题]题 （1.0分）
在窗体上添加一个命令按钮,编写如下代码.
Private Sub Command1_Click
Dim Arr1(10) as Integer ,Arr2(10) As Integer
n=3
For i=1 to 5
Arr1(i)=i
Arr2(n)=2*n+i
Next i
Print Arr2(n), Arr1(n)
End Sub
程序运行后,单击命令按钮,输出结果是().
A.11 3
B.3 11
C.13 3
D.3 13
[单选题]在窗体上画一个名称为Textl的文本框和一个名称
为Commandl的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For j=.To 5.
I=i+.
N=n+.
If i>1.Then
Exit For
End If
Next
Textl.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是().
A.2
B.3
C.4
D.5
[单选题]题 （1.0分）
在窗体上添加一个命令按钮,编写如下代码.
Option Base 1
Private Sub Command1_Click
Dim a
A=Array(1,2,3,4)
J=1
For i=4 To1 Step -1
S=s+a(i)*j
J=j*10
Next i
Print s
End Sub
程序运行后,单击命令按钮,输出结果是
().
A.4321
B.12
C.34
D.1234
[单选题]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim array1(10,10) As Integer
Dim i,j As Integer
For i=1 To 3
For j=2 T0 4
Array1(i,j)=i+j
Next j
Next i
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是().
A.1.
B.1.
C.1.
D.1.
[单选题]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,
然后编写如下程序:
Private Sub Command1_Click()
Dim x, y, z As Integer
X = .
Y = .
Z = .
Text1.Text = ""
Call P1(x, y, z)
Text1.Text = Str(x) & Str(z)
End Sub
Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer)
A=a+.b=b+.
C = a + b
End Sub
程序运行后,如果单击命令按钮,则在文本框中显示的内容是().
A.5 1.
B.6 1.
C.5 .
D.6 .
[单选题]在窗体上画两个名称分别为Text1,Text2的文本框
和一个名称Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim x As Integer,n As Integer
X=.
N=.
Do While X<2.
X=X*.
N=n+.
Loop
Textl.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在两个文本框中显示的值分别是().
A.15和1
B.27和3
C.195和3
D.600和4
[单选题]设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,
则另一个命令按钮的名称不能是().
A.cmdc
B.cmdb
C.cmdA
D.Command1
[单选题]在窗体上画一个命令按钮,然后编写如下事件过程,程序运行后,
单击命令按钮,依次在输入对话框中输入5,4,3,2,1,-1,输出结果().
Private Sub Command1_Click()
X=0
Do Until x=-1
A=Val(InputBox(""请输入A的值""))
B=Val(InputBox(""请输入B的值""))
X=Val(InputBox(""请输入X的值""))
A=a+b+x
Loop
Print a
End Sub
A.13
B.2
C.3
D.14
[单选题]在窗体中添加一个列表框(ListBox1)和一个命令按钮,并编写如下代码:
Private Sub Command1_Click()
Dim Entry,I,Msg
Msg="Choose OK to add l0.items to your list box."
MsgBox Msg
For I=.To 10.
Entry="Entry"&I
List1.Addltem Entry
Next I
End Sub
程序完成的功能是().
A.本示例使用Addltem方法增加100项给一个列表框
B.本示例使用Addltem方法向一个列表框中添加的内容是1~100的罗列
C.本示例使用Addltem方法向一个列表框中添加的内容是1~100的和
D.本示例使用Addltem方法增加101项给一个列表框
[单选题]题 （1.0分）
设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,
则另一个命令按钮的名称不能是().
A.cmdc
B.cmdb
C.cmdA
D.Command1
[单选题]窗体上有文本框Textl,执行下列程序后在文本框输入123abc,单击按钮后输出结果为().
Private Sub From_Load()
Textl.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Char=Chr(KeyAscii)
KeyAscii=Asc(UCase(Char))
End Sub
Private Sub Command1_Chck()
Print Textl.Text
End Sub
A.123ABC
B.ABC
C.!@#ABC
D.123abe
[单选题]题 （1.0分）
在窗体中添加一个列表框(ListBox1)和一个命令按钮,并编写如下代码.
Private Sub Command1_Click()
Dim Entry,I,Msg
Msg="Choose OK to add l00 items to your list box."
MsgBox Msg
For I=1 To 100
Entry="Entry"&I
List1.Addltem Entry
Next I
End Sub
程序完成的功能是().
A.本示例使用Addltem方法增加100项给一个列表框
B.本示例使用Addltem方法向一个列表框中添加的内容是1~100的罗列
C.本示例使用Addltem方法向一个列表框中添加的内容是1~100的和
D.本示例使用Addltem方法增加101项给一个列表框
