更多"[单选题]在窗体中添加一个命令按钮和一个文本框,并编写如下程序代码:P"的相关试题:
[单选题]题 （1.0分）
在窗体中添加一个命令按钮和一个文本框,并编写如下程序代码.
Private Sub Command1_Click()
For a = 1 To 5
Y = 1
For b = 1 To 10
For C = 1 To 6
X = X + 1
Y = y + 1
Next C
Next b
Next a
Text.Text = y
End Sub
程序运行后,单击命令按钮,文本框中的值为().
A.61
B.60
C.36
D.6
[单选题]有如下程序代码:
Private Sub Form_MouseDown(Button As Integr ,Shift As Integer , X As Single,Y As Single)
FillColor=QBColor(Int(Rnd*15))
FillStyle=Int(Rnd*8)
Circle(x,y),25. End Sub
该程序的功能是().
A.鼠标拖曳时在窗体中构造一个圆
B.双击鼠标时在窗体中构造一
个圆
C.单击鼠标时在窗体中构造一
个圆
D.加载时在窗体中构造一个圆
[单选题]题 （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分）
在窗体上画一个名称为Textl的文本框和一个名称
为Commandl的命令按钮,然后编写如下事件过程.
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For j=0 To 50
I=i+3
N=n+1
If i>10 Then
Exit For
End If
Next
Textl.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是().
A.2
B.3
C.4
D.5
[单选题]在窗体上画一个名称为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.
[单选题]题 （1.0分）
单击窗体时,下列程序代码的执行结果是().
Private Sub lnvert(ByVal xstr As String,ystr As String)
Dim tempstr As String
Dim I As Integer
I=Len(xstr)
Do While I>=1
Tempstr=tempstr+Mid(xstr,I,1)
I=I-1
Loop ystr=tempstr
End Sub
Private Sub Form_Click()
Dim s1 As String,s2 As String
S1="abcdef"
Invert s1,s2
Print s2
End Sub
A.abcdef
B.afbecd
C.fedcba
D.defabc
[单选题]在窗体上画一个名称为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 .
[单选题]窗体上有一个按钮和一个文本框,程序执行后,在文本框中输入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
[单选题]单击一次命令按钮后,下列程序代码的执行结果为().
Private Sub Command1_Click()
Dim m As Integer,i As Integer,x(10) As Integer
For i=.To 4
X(i)=i+1
Next i
For i=.To 2
Call Prioc(x)
Next i
For i=.To 4
Print x(i);
Next i
End Sub
Private Sub Prioc(a()As Integer)
Static i As Integer
Do
A(i)=a(i)+a(i+1)
I=i+.
Loop While i<.
End Sub
A.....6
B.....5
C.....5
D.....7
[单选题]在窗体上画两个名称分别为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
[单选题]在设计阶段,当双击窗体上的某一个文本框控件时,系统将在代码窗口中显示该文本框控件的()事件过程模板.
A.Click
B.DblClick
C.Change
D.GotFocus
[单选题]题 （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
[单选题]窗体中有年龄文本框txtAge ,下面选项中可以获得文本框中的年龄值的是( )
A.int age = txtAge ;
B.int age = txtAge.Text ;
C.int age = int.Parse ( txtAge.Text ) ;
D.int age = Convert.ToInt 3 2 ( txtAge ) ;
[单选题]窗体上有一个命令按钮Command1,编写如下事件过程:
Private Sub Command1_Click()
X = InputBox("x=")
Y = InputBox("y=")
Print x + y
End Sub
运行后,单击命令按钮,先后在两个输入对话框中输入123和321,窗体显示的内容是().
A.444
B.123321
C.123+321
D.出错信息
[单选题]在窗体上面一个命令按钮,名称为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
[单选题]窗体上有文本框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
