窗体上有一个名称为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' />
时间:2023-08-10 12:26:24
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim c As Integer,n As Integer For c=0 To 50 c=c+3 n=n+1 Ifc>10Then Exit For Next c Text1.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 To 4 array1(I,j)=I+j Next j Next I Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是()
A . 12
B . 13
C . 14
D . 15
-
在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 DoWhilex<20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是()
A . 15和1
B . 27和3
C . 195和3
D . 600和4
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+5n=n+1Ifi>30ThenExitForNextText1.Text=Str(n)EndSub程序运行后,单击命令按钮,在文本框中显示的值是______。(5.0分)
-
在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为:
Private Sub Timer1_
TxtTime.text=Time
End Sub
在下画线上应填入的内容是
A.Enabled
B.Visible
C.Interval
D.Time
-
窗体上有文本框Text1和一个菜单,菜单标题、名称见表,结构见图。要求程序执行时单击“保存”菜单项,则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是()。
<img src='https://img2.soutiyun.com/ask/uploadfile/4317001-4320000/63c20c661602bfec53b19f6c83268fac.jpg' />
A.Private Sub save Click()
Text1.Text=file.save.Caption
End Sub
B.Private Sub save Click()
Text1.Text=save.Caption
End Sub
C.Private Sub file Click()
Text1.Text=file.save.Caption
End Sub
D.Private Sub file Click()
Text1.Text=save.Caption
End Sub
-
窗体上有两个名称分别为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
-
在窗体上画一个名称为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整除的数
-
在窗体上有一个文本框控件,名称为TxtTime;一个计时器控件,名称为Timer1,要求每一秒钟在文本框中显示一次当前的时间。程序为:
<img src='https://img2.soutiyun.com/ask/uploadfile/2523001-2526000/b1da673322f0d1df5aa81b5625094699.jpg' />
在下划线上应填入的内容是
A.Time
B.False
C.True
D.Timer
-
窗体中有一个名称为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
-
在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 Do While x<20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是 ______。
A.15和1
B.27和3
C.195和3
D.600和4
-
在名为Form1的窗体上绘制一个文本框(名称为Text1)和一个水平滚动条(名称为 HSl)。在属性窗口中对
在名为Form1的窗体上绘制一个文本框(名称为Text1)和一个水平滚动条(名称为 HSl)。在属性窗口中对滚动条设置如下属性:
Min 500
Max 2000
LargeChange 50
SmallChange 20
编写适当的事件过程,使程序运行后,若移动滚动条上的滚动框,则可扩大或缩小文本框的高度,并使得文本框的宽度始终是其高度的1.2倍。运行后的窗体如下图所示。
<img src='https://img2.soutiyun.com/shangxueba/ask/11181001-11184000/11182470/ct_ctvbjj_ctvbjbasicope_00061(20096).jpg' />
注意:
要求程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为execise58.vbp,窗体文件名为execise58.frm。
-
在窗体中建立三个文本框,名称分别为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
-
在名称为Form1的窗体上绘制一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:
Private Sub Form. Click()
Open "d:\test\smtext1.txt" For Input As 1
Do While Not
Line Input 1,aspects
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close 1
Open "d:\test\smtext2.txt" For Output As 1
Print 1, ______
Close 1
End Sub
上述程序的功能是,把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。
-
有一个VBA计算程序的功能如下,该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4。3个按钮分别为:清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后,单击清除按钮,
则清除所有文本框中显示的内容;单击计算按钮,则计算在Text1、Text2和Text3三个文
本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中:单击退出按钮则退出。
请将下列程序填空补充完整。
Private Sub Command1_Click()
Me!Text1=""
Me!Text2=""
Me!Text3=""
Me!Text4=""
End Sub
Pdvate Sub Command2_Click()
If Me!Text1="" Or Me!Text2="" Or Me!Text3=""then
MsgBox"成绩输入不全"
Else
Me!Text4=(【 】+Val(Me!Text2)+Val(Me!Text3))/3
【 】
End Sub
Private Sub Command3_Click()
Docmd. 【 】
End Sub
-
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序:对于上述程序,以下叙述中错误的是()
A.语句fun=n有错,因为n是整型,fun没有定义类型
B.运行程序,输入值为5时,文本框中显示655
C.运行程序,输入值为6时,文本框中显示42
D.ByRef表示参数按址传递
-
在窗体上画一个名称为Text1的文本框,然后编写如下事件过程:PrivatSuForm_Load()。程序运行后,如果按Shift+F2键,则文本框中的内容是()
A.Alt+F2
B.ab1
C.随机显示
D.不显示任何信息
-
在窗体上画一个名称为Text1的文本框和名称为HScrolll的水平滚动条(Max属性为 10,Min属性为0),然后画两个标题分别为“慢”和“快”的标签。程序运行后,移动滚动块,如果滚动块位于滚动条的正中间位置,则在文本框中显示“适中”;如果滚动块位于滚动条的正中间位置的左侧,则在文本框中显示“慢”;如果滚动块位于滚动条的正中间位置的右侧,则在文本框中显示“快”,如下图所示。请填空。 Priva
-
在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色),此时如果在文本框中输入字符,则命令按钮Command1变为可用。请填空。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1_ ______ Command1.Enabled=True