题目详情
当前位置:首页 > 职业培训考试
题目详情:
发布时间:2023-12-08 06:03:52

[单项选择]在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编写命令按钮Command1的Click事件代码:
Private Function fun(x As Long)As Boolean
If x Mod 2=0 Then
fun=True
Else
fun=False
End If
End Function
Private Sub Command1_Click( )
Dim n As Long
n=Val(Text1.Text)
p=IIf(fun(n),"奇数","偶数")
Label1.Caption=n & "是一个"& p
End Sub
程序运行后,在文本框中输入20,单击命令按钮后,标签中的内容为( )。
A. 20是一个奇数
B. 20
C. 20是一个偶数
D. 2

更多"在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属"的相关试题:

[单项选择]在窗体上建立三个文本框,名称分别为Text1、Text2和Text3,一个命令按纽,名称为command1,如果在TEXT1中输入数200,在TEXT2中输入数150,则执行下列程序后,TEXT3的值为______。 Private Sub Command1_Click( ) Dim m, n As Integer m = Val (Text1. Text) n = Val (Text2. Text) If n * m = 0 Then Exit Sub End If If m < n Then t =m: m= n: n = t End If Do r = m Mod n m= n n =r Loop While r <> 0 Text3. Text= m End Sub
A. 200
B. 50
C. 100
D. 150
[填空题]在窗体上添加一个文本框控件Info,画一个命令按钮,当单击命令按钮显示“保存文件”对话框,设置该对话框可用于保存文本文件(默认)和可执行文件(.exe),然后在文本控件中显示保存的文件名。   Private Sub Command1_Click( )     CommonDialog1.Filter=【 】     CommonDialog1.FilterIndex=【 】     CommonDialog1.ShowSave     Info.Text=【 】   End Sub
[填空题]在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在______处填入适当的内容,将程序补充完整。 Private Sub Form_Load( ) Command1.Enabled=False End Sub Private Sub Text1_ ______( ) Command1.Enabled=True End sub
[填空题]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请将程序补充完整。 Private Sub Form_Load( ) Command1.Enabled=False End Sub Private Sub Text1 【15】 ( ) Command1.Enabled=True End Sub
[填空题]

在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色),此时如果在文本框中输入字符,则命令按钮Command1变为可用。请填空。
Private Sub Form_Load( )
Command1.Enabled=False
End sub
Private Sub Text1_()( )
Command1.Enabled=Tree
End Sub


[单项选择]在窗体中添加一个命令按钮和一个文本框,并编写如下程序代码:
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
[填空题]在窗体中添加一个命令按钮cmd和一个文本框txt,然后编写如下事件过程: Private Sub cmd_click( ) Dim x As Integer, y As Integer, z As Integer x=5 y=7 z=0 Me! Txt="" Call p(x,y,z) Me! txt=z End Sub Sub p(a As Integer, b As Integer, e As Integer) c=a+b End Sub 单击按钮,文本框显示的内容是 【12】

我来回答:

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

订单号:

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