更多"在窗体中添加一个命令按钮和一个文本框,并编写如下程序代码: Priv"的相关试题:
[单项选择]在窗体中添加一个命令按钮和一个文本框,并编写如下程序代码:
Private Sub Command1_Click( )
k = 0
Do While k < 70
k = k + 2
k = k * k + k
a = a + k
Loop
Text1.Text = a
End Sub
程序运行后,文本框中显示________。
(A) 20
(B) 32
(C) 44
(D) 78
[填空题]在窗体上有一个命令按钮和一个文本框。编写如下事件过程:
Private Sub Command1_Click( )
a=InputBox("请输入一个整数")
Text1.Text=a
If a > 0 Then
If a Mod 3 = 0 Then
MsgBox "True"
Else
MsgBox "error"
End If
End If
End Sub
程序运行后,单击命令按钮,在输入对话框里输入12,则弹出的提示内容是______。
[填空题]在窗体中添加一个命令按钮Command1和一个文本框Text1,编写如下代码:
Private Sub Command1_Click( )
Dim x As Integer,y As Integer,z As Integer
a=5,b=10,c=0
Me!Text1=" "
Call p1(a,b,c)
Me!Text1=12
End Sub
Sub pl(XxAs Integer,y As Integer,z As Integer)
z=x+y
End Sub
程序运行后,文本框中应显示的内容为______。
[单项选择]窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序:
Private Sub Command1_Click( )
Dim n
If Text1.Text<>"123456"Then
n=n+1
Print"口令输入错误" & n & "次"
End If
End Sub
希望程序运行时得到左图所示的效果,即:输入口令,单击“确定口令”命令按钮,若输入的口令不是“123456”,则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果,程序需要修改。下面修改方案中正确的是( )
A. 在Dim n语句的下面添加一句:n=0
B. 把Print"口令输入错误"&n&"次"改为Print"口令输入错误"+n+"次"
C. 把Print"口令输入错误"&n&"次"改为Print"口令输入错误"&Str(n)&"次"
D. 把Dim n改为Static n
[单项选择]窗体上有名称为Command1的命令按钮和名称为Texl1的文本框
Private Sub Command1_Click( )
Text1.Text="程序设计"
Text.1.SeFocus
End Sub
Private Sub Text1_GotFocus( )
Text1.Text="等级考试"
End Sub
运行以下程序,单击命令按钮后( )
A. 文本框中显示的是“程序设计”,且焦点在文本框中
B. 文本框中显示的是“等级考试”,且焦点在文本框中
C. 文本框中显示的是“程序设计”,且焦点在命令按钮上
D. 文本框中显示的是“等级考试”,且焦点在命令按钮上
[单项选择]程序代码如下,当单击窗体上的Command1控件时,在窗体上输出的结果是( )。 Private Sub Command1_Click( ) Dim aa(3,3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i,j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i,1) Next i Print s End Sub
A. 32
B. 28
C. 30
D. 36
[单项选择]在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写下列程序:
Private Sub Command1 click( )
A=InputBox("请输入日期(1~31)")
t="旅游景点:"_
&Ⅱf(A>0 And A<=10,"长城","")_
&Ⅱf(A>10 And A<=20,"故宫","")_
&Ⅱf(A>20 And A<=30,"颐和园","")
Text1.Text=t
End Sub
程序运行后,如果从键盘输入5,则在文本框中显示的内容是( )。
A. 旅游景点:长城
B. 旅游景点:长城颐和园
C. 旅游景点:颐和园
D. 旅游景点:故宫
[单项选择]在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写如下程序:
Private Sub Command1_Click( )
A=InputBox("请输入日期(1~31)")
t="旅游景点:"
& IIf(A>0 And A<=10,"长城","")_
& IIf(A>10 And A<=20,"故宫","")_
& IIf(A>20 And A<=30,"颐和园","")
Text1.Text=t
End Sub
程序运行后,如果从键盘输入5,则在文本框中显示的内容是( )。
A. 旅游景点:长城
B. 旅游景点:长城颐和园
C. 旅游景点:颐和园
D. 旅游景点:故宫
[单项选择]在窗体中有一个命令按钮Command1和一个文本框Test1,编写事件代码如下:
Private Sub Command1_Click( )
For I=1 To 4
x=3
For j=1 To 3
For k=1 To 2
x=x+3
Next k
Next j
Next I
Text1.Value=Str(x)
End Sub
打开窗体运行后,单击命令按钮,文本框Text1中输出的结果是
A. 6
B. 12
C. 18
D. 21
[单项选择]在窗体上有一个命令按钮Command1和一个文本框Text1,编写事件代码如下。
Private Sub Command1_Click( )
Dim i,j,x
For i=1 To 20 Step 2
x=0
For i=i To 20 Step 3
x=x+1
Next j
Next i
Text1.Value=Str(x)
End Sub
打开窗体运行后,单击命令按钮,文本框中显示的结果是( )。
A. 1
B. 7
C. 17
D. 400
[单项选择]在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写如下程序: Private Sub Command1_Click( )
A=InputBox("请输入日期(1~31)")
t="旅游景点:"_
& IIf(A>0 And A<=10, "长城","")_
& IIf(A>10 And A<=20,"故宫","")_
& IIf(A>20 And A<=30,"颐和园","")
Text1.Text=t
End Sub
程序运行后,如果从键盘输入5,则在文本框中显示的内容是( )。
A. 旅游景点:长城
B. 旅游景点:长城颐和园
C. 旅游景点:颐和园
D. 旅游景点:故宫
[填空题]设窗体上有Text1文本框和Command命令按钮,并有以下程序:
Private Sub Command1_Click( )
Iemp$=“”
For k=1 To Len(Text1)
Ch$=Mid(Text1,k,1)
If Not found(temp,ch)Then
Temp=temp& ( 13 )
End if
Next k
Text1= ( 14 )
End Sub
Private Function found(str As String,ch As String)As Boolean
For K=1 To Len(str)
If ch=Mid(Str,k,1) Then
Found= ( 15 )
Exit Function
End If
Next k
Found=False
End Function
运 行时,在文本框中输入若干英文字母,然后单击命令按钮,则可以删去文本框中所有重复的字母。例如,若文本框中原有字符串为“abcddbbc”,则单击命 令按钮后文本框中字符串为“abcd“。其中函数found的功能是判断字符串str中是否有字符ch,若有,函数返回True,否则返回False。请 填空。