-
窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。
<img src='https://img2.soutiyun.com/shangxueba/ask/4359001-4362000/4359886/ct_ctvbbm_choose_05019(20092).jpg' />
设有如下的类型声明 TyPe Person name AS String*8 major AS String*20 End TyPe 当单击“保存”按钮时,将两个文本框中的内容写入一个随机文件Test29 .dat中。设文本框中的数据已正确地赋值给Person类型的变量P.则能够正确地把数据写入文件的程序段是
A.Open"c:\Test29.dat"For Random As1 Put1,1,p C10se 1
B.OpeH"c:\Test29.dat"For Random As 1 Get1,1,p C108C1
C.Open"c:\Test29.dat"For Random As1 Len=Len(p) Put1,1,p C108C1
D.OPell"c:\Test29.dat"For,Random As1 Len=Len(p) Get1,1,p C106e1
-
下图窗体上有三个文本框Text1、Text2和Text3以及一个按钮Command1。为完成已知圆直径求圆周长和圆面积的功能,程序如下:
<img src='https://img2.soutiyun.com/shangxueba/ask/11175001-11178000/11176558/ct_cstvbm_ctvbbblank_00048(200912).jpg' />
程序填空处应是______。
-
在窗体上有一个名为num2的文本框和run11的命令按钮,事件代码如下: Private Sub run11 Click() Select Case num2 Case 0 Result=“0分” Case 60 T0 84 result= “通过” Case IS>=85 result= “优秀” Case Else result=“不合格” End Select MsgBox result End Sub 打开窗体,在文本框中输入80,单击命令按钮,输出结果是()。
A.合格
B.通过
C.优秀
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整除的数
-
在下图所示的窗体上,有一个标有“显示”字样的命令按钮(名称为Command1)和一个文本框(名称为text1)。当单击命令按钮时,将变量sum的值显示在文本框内,正确的代码是______。<img src='https://img2.soutiyun.com/shangxueba/ask/1239001-1242000/1239994/ct_cstabz200802_ctabchoose_00074(20096).jpg' />
A.Me!Text1.Caption=sum
B.Me!Text1.Value=sum
C.Me!Text1.Text=sum
D.Me!Textl.Visible=sum
-
有一个窗体Form1,其中有一个文本编辑框Text1和一个命令按钮Command1。运行窗体后在文本编辑框中输入一串字符,单击命令按钮后该窗体的标题改变为文本编辑框中输入的字符串。则宏命令SetValue的参数设置是( )。
A.“项目”:[Forms]![Form1],“表达式”:[Forms]![Form1]![Text1]
B.“项目”:[Forms]![Form1].[Caption],“表达式”:[Forms]![Form1]![Text1]
C.“项目”:[Forms]![Form1].[Caption],“表达式”:[Forms]![Form1]![Command1]
D.“项目”:[Forms]![Form1]![Text1],“表达式”:[Forms]![Form1]![Command1]
-
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在()处填入适当的内容,将程序补充完整。
<img src='https://img2.soutiyun.com/ask/uploadfile/10839001-10842000/b6e1961a1ece372d5b5d9638e1f875a5.jpg' />
-
窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1_Click()
A.5
B.8
C.9
D.10
-
窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,要求程序运行时,单击命令按钮(
窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,要求程序运行时,单击命令按钮(如图1所示),就可以把文本框中的内容写到文件Out.txt中,每次写 入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是()。<img src='https://img2.soutiyun.com/ask/uploadfile/2340001-2343000/9ee39e48e3711140203a592ce77b107b.jpg' /><img src='https://img2.soutiyun.com/ask/uploadfile/2340001-2343000/54c76f430783fad60b8a548d0f7a9765.jpg' />
-
在窗体上画一个名称为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整除的数
-
窗体中有一个名称为txtNoteEdit的文本框和一个名称为cmdCut的命令按钮,编写如下程序段:PrivateSubcmdCut_Click()st=txtNoteEdit.SelTexttxtNoteEdit.SelText=""EndSub当单击命令按钮后,程序执行的效果是()
A.将txtNoteEdit中的所有内容存放到st变量中,并将txtNoteEdit选中的内容清除,实现了剪切
B.将txtNoteEdit选中的内容存放到st变量中,并将txtNoteEdit中所有的内容清除,实现了剪切
C.将txtNoteEdit选中的内容存放到st变量中,并将txtNoteEdit选中的内容清除,实现了剪切
D.以上说法都不正确
-
在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
<img src='https://img2.soutiyun.com/ask/uploadfile/2586001-2589000/23e1201b59bd107c459be2a1be30957d.jpg' />
程序运行后,单击命令按钮,在文本框中显示的值是
A.2
B.3
C.4
D.5
-
(26 ) 在下图所示的窗体上 , 有一个标有 “ 显示 ” 字样的命令按钮 (名称为 Command1 ) 和一个文本框 (名称为 text1 ) 。当单击命令按钮时,将变量 sum 的值显示在文本框内,正确的代码是() 。
<img src='https://img2.soutiyun.com/ask/uploadfile/4884001-4887000/bf8d65c222511bcbd6a987853bf72602.gif' />
A ) Me!Text1.Caption=sum
B ) Me!Text1.Valuc=sum
C ) Me!Text1.Text=sum
D ) Me!Text1.Visiblc=sum
-
在考生文件夹中有工程文件execise99.vbp和窗体文件execise99.frm。在名为Fom1的窗体上有一个名为Text1的文本框,有两个命令按钮(名称分别是Cmd1和Cmd2,标题分别是Read和Save)。要求程序运行后,单击Read按钮,将文本文件in99.txt中的所有数字读到数组arr中,并在文本框内显示出来。随后Read按钮变为无效;然后单击Save按钮,
求出数组alt中的各元素的立方并赋值回相应的元素,例如,arr(2)=2,则令art(2)=arr(2)*arr(2) *arr(2)=8。把计算后的数组的值全部写入考生文件夹中的文本文件out99.txt中,并在文本框中显示出来,最后Save按钮也变为无效。
<img src='https://img2.soutiyun.com/shangxueba/ask/11259001-11262000/11261465/ct_ctvbjj_ctvbjsimpapp_00144(20096).jpg' />
本程序不完整,请补充完整,并能正确运行。
要求;
去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。
-
在窗体中建立三个文本框,名称分别为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
-
在窗体(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的命令按钮,一个名称为Text1的文本框。编写如下程序:对于上述程序,以下叙述中错误的是()
A.语句fun=n有错,因为n是整型,fun没有定义类型
B.运行程序,输入值为5时,文本框中显示655
C.运行程序,输入值为6时,文本框中显示42
D.ByRef表示参数按址传递
-
在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色),此时如果在文本框中输入字符,则命令按钮Command1变为可用。请填空。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1_ ______ Command1.Enabled=True
-
在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Commandl和Label1,通过属性窗口把列表框中的项目设置为:“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行情况如图所示(选择“第三个项目”的情况)。下面是实现上述功能的程序,请填空。 Pf
-
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Commandl的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分),如下图所示。请填空。 Pfivale Sub Commaildl_C1iCk() Dimk As hteger Dim
-
设窗体上有一个名为Text1的文本框和一个名为Comamand1的命令按钮,并有以下事件过程: Private Sub Command1_Click() x!=Val(text1.text) Select Case x Case Is<-10,Is>=20 Print "输入错误" Case Is<0 Print 20-x Case Is<10 print 20 Case Is<=20 Print x+10 End Select End Sub 程序运行时,如果在文本框中输入-5,则单击命令按钮后输出结果是_________。
A.5
B.20
C.25
D.输入错误
-
在窗体上添加一个文本框控件Info,画一个命令按钮,当单击命令按钮显示“保存文件”对话框,设置该对话框可用于保存文本文件(默认)和可执行文件(.exe),然后在文本控件中显示保存的文件名。 Private Sub Command1_Click() CommonDialog1.Filter= 【13】 CommonDialog1.FilterIndex= 【14】 CommonDialog1.Sh
-
在窗体上有一个命令按钮和一个标签,其名称分别为Command1和Label1,编写如下事件过程:程序运行后单击命令按钮,标签中显示的内容是()
A.11
B.12
C.16
D.20