题目详情
当前位置:首页 > 职业培训考试
题目详情:
发布时间:2024-03-06 19:42:27

[填空题]为命令按钮的Picture属性装入了一个图片,但却发现图片没有显示出来,要使图片显示出来,应设置它的 【6】 属性。

更多"为命令按钮的Picture属性装入了一个图片,但却发现图片没有显示出来"的相关试题:

[填空题]为命令按钮的Picture属性装入了一个图片,但却发现图片没有显示出来,要使图片显示出来,应设置它的 【6】 属性。
[填空题]要使一个命令按钮成为图形命令按钮,则应设置______属性值。
[填空题]要把一个命令按钮设置成无效,应设置______属性值。
[填空题]一个表单需要4个命令按钮,可以使用两种方式:分别建4个命令按钮或建一个命令按钮组。如果采用建一个命令按钮组的方式,首先应设置的属性为 【7】
[填空题]一个表单需要4个命令按钮,可以使用2种方式:分别建4个命令按钮:建一个命令按钮组。如果采用建一个命令按钮组的方式,首先应设置的属性为 【7】
[单项选择]假定一个表单里有一个文本框Textl和一个命令按钮组CommandGroupl。命令按钮组是一个容器对象,其中包含Commandl和Command2两个命令按钮。如果要在Cornmandl命令按钮的某个方法中访问文本框的Value属性值,正确的表达式是( )。
A. This.ThisForm.Textl.Value
B. This.Parent.Parent.Textl.Value
C. Parent.Parent.Textl.Value
D. This.Parent.Textl.Value
[单项选择]假定一个表单里有一个文本框Text1和一个命令按钮组CommandGroup1。命令按钮组是一个容器对象,其中包含Command1和Command2两个命令按钮。如果要在Command1命令按钮的某个方法中访问文本框的Value属性值,不正确的表达式是______。
A. Thisform.Text1.Value
B. This.Parent.Parent.Text1.Value
C. This.Thisform.Text1.Value
D. Thisform.CommandGroup1.Parent.Text1.Value
[填空题]要使命令按钮控件不可用,应设置的属性是______。
[单项选择]窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是
Private Sub Command1_Click( )
Dim a
a = Array(1,2,3,4,5)
For k = 1 To4
s=s+a(k)
Next
Print S
End Sub
A. 10
B. 14
C. 15
D. 120
[单项选择]窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是( )。

Private Sub Command1_Click( )

Dim a

a=Array(1,2,3,4,5)

For k=1 To 4

S=s+a(k)

Next k

Print s

End Sub
A. 10
B. 14
C. 15
D. 120
[单项选择]在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的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
[填空题]在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行情况如图6-1所示。下面是实现上述功能的程序,请填空。
Private Sub Form_Load( )
  List1.AddItem "AAAAA"
  List1.AddItem "BBBBB"
  List1.AddItem "CCCCC"
  List1 .AddItem "DDDDD"
End Sub
Private Sub Command1_Click( )
  Dim L1 As Integer
  L1 = (12)
  If L1 > = 0 Then
    List1.RemoveItem (13)
    Label1.Caption = (14)
  Else
    MsgBox"请选择要删除的项目"
  End If
End Sub

我来回答:

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

订单号:

截图扫码使用小程序[完全免费查看答案]
请不要关闭本页面,支付完成后请点击【支付完成】按钮
恭喜您,购买搜题卡成功
重要提示:请拍照或截图保存账号密码!
我要搜题网官网:https://www.woyaosouti.com
我已记住账号密码