题目详情
当前位置:首页 > 职业培训考试
题目详情:
发布时间:2024-01-24 21:43:45

[单项选择]在窗体中添加一个名称为Command1的命令按钮和一个名称为text1的文本框,然后编写如下程序; ( ) Private Sub Commandl_Click( ) Dim x,y,z As Integer x=5:y=7:z=O Text1.Text="" Call Pl(x,y,z) Text1. Text=Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End Sub
A. 0
B. 12
C. Str(
D. 没有显示

更多"在窗体中添加一个名称为Command1的命令按钮和一个名称为text1"的相关试题:

[单项选择]在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框,并把窗体的 KeyPreview 属性设置为True,然后编写如下代码: Dim SaveAll As String Private Sub Form_ Load ( ) Show Text1.Text = " " Text1. SetFocus End Sub Private Sub Command1 Click( ) Text1. Text= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后,在键盘上输入ABCDEFG,单击命令按钮,则文本框中显示的内容为 ______ 。
A. abodefg
B. 不显示任何信息
C. ABCDEFG
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的文本框。程序运行后,Command1显示为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在______处填入适当的内容,将程序补充完整。
Private Sub Form_Load( )
Command1. Enabled=False
End Sub
Private Sub Text1______( )
Command1. Enabled=True
End Sub

[填空题]若窗体中已有一个为Command1的命令按钮、一个名为Label1的标签和一个名为Text1的文本框,且文本框的内容为空,然后编写如下事件代码:
Private Function f(x AS Long) As Boolean
If x Mod 2=0 Then
f=True
Else
f=False
End If
End Function
Private Sub Command1_Click( )
Dim n As Long
n=Val(Me!text1)
P=IIf(f(n), "Even number", "Odd number")
Me!Label1.Caption=n&"is"&p
End Sub
窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为______。
[填空题]

窗体中有一个名为Command1的命令按钮和一个名为Text1的文本框,事件代码如下:
Private Sub Command1_Click ( )
Dim a(10) As Integer , b(10) As Integer
n=3
For i=1 T0 5
a(i)= i
b(n) = 2*n+i
Next i
Me!Text1 = a(n) + b(n)
End Sub
打开窗体,单击命令按钮,文本框Text1中显示的内容是()。


[单项选择]在窗体有两个名为text1、text2的文本框和一个名为Command1的命令按钮,事件过程:
Private sub command1_dick( )
Dim x as Integer,n as Integer
x=1
n=0
Do While x<20
x=x*3
n=n+1
Loop
text1=str(x)text2=str(n)
End Sub
程序运行后,单击命令按钮,在两个文本框text1和text2中显示的值分别是______。
A. 15和1
B. 27和3
C. 195和3
D. 600和4
[填空题]设窗体上有一个名为CD1的通用对话框、一个名为Text1的文本框和一个名称为Command1的命令按钮。程序执行时,单击Command1按钮,则显示“打开”文件对话框,操作者从中选择一个文本文件,并单击对话框上的“打开”按钮后,则可打开该文本文件,并读入一行文本,显示在Text1中。下面是实现此功能的事件过程,请填空。
Private Sub Command1_Click( )
CD1.Filter="文本文件|*.txt|Word文档|*.doc"
CD1.FilterIndex=1
CD1.ShowOpen
If CD1.FileName<>""Then
Open______For Input As #1
Line Input #1,ch$
Close #1
Text1.Text=______
End If
End Sub
[单项选择]在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1,然后编写如下代码:
Private Sub Command1_Click( )
Text1.Text="AB"
End Sub
Private Sub Command2_Cliek( )
Text1.Text="CD"
End Sub
首先单击Command1按钮,然后再单击Command2按钮,在文本框中显示
A. AB
B. CD
C. ABED
D. CDAB
[单项选择]在窗体上画一个名为Text1的文本框和一个名为Command1的命令按钮。要求:程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件Test.dat中,如图所示。请在空格处填上适当的内容,则在以下横线处合适的语句是( )。
Private Sub Command1_Click( )
Open "c:/test.dat"For______As#1
For i=1 To Len(Text1.Text)
Next i
Close #1
End Sub
A. Input Print#1,Mid(Text1.Text,i,1)
B. Output Print#1,Mid(Text1.Text,i,1)
C. Output Print#1,Left(Text1.Text,i,1)
D. Output Input#1,Mid(Text1.Text,i,1)
[填空题]在窗体中添加一个命令按钮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的命令按钮,然后编写如下事件过程。
Privace Sub Command1_Click( )
Dim array1(3,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.value=array1(2,3)+array1(3,4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是______。
[单项选择]在窗体上画一个名为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim arrayl(10, 10)As Integer
Dim i As Integer, j As Integer
For i=1 To 3
For j=2 To 4
arrayl(i, j)=i+j
Next j
Next i
Text1. Text=arrayl(2, 3)+arrayl(3, 4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是______。
A. 12
B. 13
C. 14
D. 15
[单项选择]在窗体中添加一个命令按钮,名称为Command1;添加一个文本框,名称为Text1,然后编写如下程序:
Private Sub Commandl Click( )
Dim a(5), b(5)
For j = 1 To 4
a(j) = 3 ( j
b(j) = a(j) ( 3
Next j
Text1.Text = b(j/2)
End Sub
程序运行后,单击命令按钮,在文本框中显示
A. 25
B. 18
C. 36
D. 35
[单项选择]在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1、Text2,然后编写如下程序:
Private Sub Command1_Click(
)
  Dim x As String, y As String, c As String, d As String
  x = Text1.Text : y = Text2.Text
  c = LCase(x): d = UCase(y)
  Print c; d
End Sub
程序运行后,在文本框Text1、Text2中分别输入AbC和efG,结果是________。
A. abcEFG
B. abcefg
C. ABCefg
D. ABCEFG
[单项选择]在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1和.Text2,然后编写如下程序:
Private Sub Command1_Click( )
Dim x As String,y As String, C As String,d As String
x = Text1.Text : y = Text2.Text
c = LCase(x):d = UCase(y)
Print c; d
End Sub
程序运行后,在文本框Texn、Text2中分别输入AbC和efG,结果是
A. abcEFG
B. abcefg
C. ABCefg
D. ABCEFG

我来回答:

购买搜题卡查看答案
[会员特权] 开通VIP, 查看 全部题目答案
[会员特权] 享免全部广告特权
推荐91天
¥36.8
¥80元
31天
¥20.8
¥40元
365天
¥88.8
¥188元
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《购买须知》
立即支付 系统将自动为您注册账号
请使用微信扫码支付

订单号:

请不要关闭本页面,支付完成后请点击【支付完成】按钮
恭喜您,购买搜题卡成功
重要提示:请拍照或截图保存账号密码!
我要搜题网官网:https://www.woyaosouti.com
我已记住账号密码