-
在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下的事件过程:
https://assets.asklib.com/images/image2/2017110811322251127.jpg
程序执行后,单击命令按钮,在两个文本框中显示的值分别为()
A . 1和0
B . 2和72
C . 3和50
D . 4和168
-
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:
https://assets.asklib.com/images/image2/2018080114161482449.jpg
程序运行后,单击命令按钮,则标签中显示的内容是()
A . 5
B . 15
C . 20
D . 25
-
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() A =Inputbox(\Enter An Integer\) B =Inputbox(\Enter An Integer\) Text1.Text = B +A End Sub 程序运行后,单击命令按钮,如果在输入对话框中分别输入4和56,则文本框中显示的内容是_______。
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+5n=n+1Ifi>30ThenExitForNextText1.Text=Str(n)EndSub程序运行后,单击命令按钮,在文本框中显示的值是______。(5.0分)
-
在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后,在列表框中添加若干列表项。当双击列表框中的某个项目时,在标签Labe1中显示所选中的项目,如图所示。请在空白处填入适当的内容,将程序补充完整。
Private Sub Form_Load()
List1.AddItem "北京"
List1.AddItem "上海"
List1.AddItem "河北"
End Sub
Private Sub List1 【9】 ()
Labe1.Caption= 【10】
End Sub
-
在窗体上画一个命令按钮和一个文本框,其名称分别为Commandl和Text1,把文本框的 Text属性设置为空白,然后编写如下事件过程: Private Sub Commandl_click() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示内容是()。
A.108
B.18
C.810
D.出错
-
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是______。
A.108
B.18
C.810
D.出错
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:
Private Sub Command1_Click()
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是()。
A.输出n以内的奇数
B.输出n以内的偶数
C.输出n以内的素数
D.输出n以内能被j整除的数
-
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在()处填入适当的内容,将程序补充完整。
<img src='https://img2.soutiyun.com/ask/uploadfile/10839001-10842000/b6e1961a1ece372d5b5d9638e1f875a5.jpg' />
-
在窗体上画一个名称为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 To 4
A.12
B.13
C.14
D.15
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Priva
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写 如下事件过程: Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To Sqr(i) If i Mod j=0 Then Exit For Next j If j>Sqr(i)Then Print i Next i End Sub 该事件过程的功能是
A.输出n以内的奇数
B.输出n以内的偶数
C.输出n以内的素数
D.输出n以内能被j整除的数
-
在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
<img src='https://img2.soutiyun.com/ask/uploadfile/2586001-2589000/23e1201b59bd107c459be2a1be30957d.jpg' />
程序运行后,单击命令按钮,在文本框中显示的值是
A.2
B.3
C.4
D.5
-
在窗体上画一个List1的列表框,一个名称为Label1的标签,列表框中显示若干个项目,当单击列表框中的某个项目时,在标签中显示被选中的项目的名称,下列能正确实现上述操作的程序是()。 A) B) C) D)
A、Private Sub List1_Click()Label1.Caption = List1.ListIndexEnd Sub
B、Private Sub List1_Click()Label1.Name = List1.ListIndexEnd Sub
C、Private Sub List1_Click()Label1.Name = List1.TextEnd Sub
D、Private Sub List1_Click()Label1.Caption = List1.TextEnd Sub
-
创建名称为Form1,标题名为“请输入密码”的窗体。在窗体上画一个标签,名称为 Label1,标题为“请输入您的密码”。在标签的下方画一个文本框,名称为“密码框”,其高度和宽度分别为2000和500。要求在输入密码时,文本框中显示“*”字符。以上这些设置必须在设计过程中进行,运行时的窗体如图1所示。程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为ylcl.vbp,窗体文件名为ylcl.frm。
<img src='https://img2.soutiyun.com/shangxueba/ask/11067001-11070000/11067794/ct_ctvbjm_basicope_00030(20092).jpg' />
-
在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分虽为Lahel1、Label2,标题分别为空白和 "共有文件"的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化,并且在标签Label1中显示当前文件夹中文件的数量。如图所示。
<img src='https://img2.soutiyun.com/shangxueba/ask/4377001-4380000/4377508/ct_ctvbbm_choose_05575(20092).jpg' />
能够正确实现上述功能的程序是
A.Private Sub Dir1_Change() Filet.Path=Dir1.Path End Sub Private Sub Dive1_Change() Dir1.Path=Drive1.Drive Label1,Caption=File1 ListCount End Sub
B.Private Sub Dir1_Change() File.Path=Dtr1.Path End Sub privage Sub Dive1_Change() Dir1.path=Drive1.Drive Lahel1.Caption=File1.List End Sub
C.Private Sub Dir1_Change() File1. Path = Dirl.Path Label1.Caption=File1, ListCount End Sub Private Sub Drive1_Change() Dir1.Path = Drive1. Drive Label1.Captiol1 = File1.ListCount End Sub(
D.Private Sub Dir1_Change() Filel. Path = Dirl.Path Label1.Caption = File1.ListCount End Sub Private Sub Dive1_Change() Dir1.Path = Drive1.Drive Label1.Caption = File1.List End Sub
-
在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名称为label1的标签,一个名称为command1的命令按钮,编写如下代码:
Private Sub Command1_Click()
Dim x!, y!, z!, t!
x = Text1
y = Text2
z = Text3
If x< y then
t = x
x = y
y = t
End If
If y< z then
t = y
y = z
z = t
If x< y then
t = x
x = y
y = t
End If
End If
Label1.Caption = x & "," & y & "," & z
End Sub
当在文本框text1、text2 和 text3 中分别输入5、3和8,则标签显示的结果为()
A.3,5,8
B.5,3,8
C.8,5,3
D.3.8.5
-
在窗体上面画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下代码: Sub S(X
在窗体上面画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下代码: Sub S(X As Integer,y As Integer) Static z As Integer y=x*x+Z z=y End Sub Private Sub Command1 Click() Dim i As Integer.z As Integer m=0 z=0 For i=1 T0 3 S i,Z m=m+z Next i Label1.Caption=Str(m) 程序运行后,单击命令按钮,在标签中显示的内容是()。
A.50
B.20
C.14
D.7
-
在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性
在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程: Private Sub Command1_Click() A=Text1.Text+TextText Print a End Sub Private SUb Form胃Load() Text1.Text= " " TextText=" " End Sub程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入33和44,然后单击命令按钮,则输出结果为
A.77
B.33+44
C.3344
D.4433
-
在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编写命令按钮Command1的Click事件代码:
<img src='https://img2.soutiyun.com/ask/uploadfile/3852001-3855000/06618ed14e1342af407ef4550c1f28b1.jpg' /><img src='https://img2.soutiyun.com/ask/uploadfile/3852001-3855000/1ebfd75144eb824dfe338ddda7667206.jpg' />程序运行后,在文本框中输入20,单击命令按钮后,标签中的内容为()。
A.20是一个奇数
B.20
C.20是一个偶数
D.2
-
在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码:程序运行后,单击命令按钮,则两个标签中显示的内容分别是()
A.25和3
B.5和3
C.25和6
D.5和6
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在 【6】 处填入适当的内容,将程序补充完整。 Private Sub Form_Load()Command1.Enabled=False End Sub Private Sub Text1 【6】 ()Com
-
在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Commandl。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat中。请在空白处填上适当的内容,将程序补充完整。 Private Sub Command1_Click() Open"c:est.dat"For Output As 1 For I=1 to Len(Text1.text
-
在窗体上画一个标签、一个计时器和一个命令按钮,其名称分别为Labl1、Timer1和Command1,如图1所示。程序运行后,如果单击命令按钮,则标签开始闪烁,每秒钟“欢迎”二字显示、消失各一次,如图2所示。以下是实现上述功能的程序,请填空。 Private Sub Form_Load() Label1.Caption="欢迎" Timer1.Enabled=False Timer1.Interv
-
在窗体上画一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个名称为 C1、标题为“存盘”的命令按钮,编写适当的事件过程。程序运行时,如果单击“存盘”命令按钮,则打开保存文件对话框,并把Text1中的内容按照在对话框中选定的路径和文件存盘。在刚打开对话框时的默认路径是“c: my documents”。请填空。 Private Sub C1_ Click() CD1. InitDir