题目详情
当前位置:首页 > 职业培训考试
题目详情:
发布时间:2023-11-09 05:32:51

[填空题]在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数。下面是实现上述功能的程序,请填空。
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)
Labe11.Caption= (14)
Else
MsgBox"请选择要删除的项目”
End If
End Sub

更多"在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后,在列表框中选"的相关试题:

[填空题]在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行情况如图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 =
  If L1 > = 0 Then
    List1.RemoveItem______
    Label1.Caption =
  Else
    MsgBox"请选择要删除的项目"
  End If
End Sub

[单项选择]在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Labell,然后编写如下事件过程: Private Sub Command1_Click( ) Counter=0 For i=1 To 4 For j=8 To 1 Step-2 Counter=Counter+1 Next i Next i Labell.Caption=Str(Counter) End Sub 程序运行后,单击命令按钮,标签中显示的内容是
A. 11
B. 12
C. 16
D. 20
[单项选择]在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Labe11,然后编写如下事件过程:
Private Sub Command1_Click( )
Counter=0
For i=1 To 4
For j=8 To 1 Step-2
Counter=Counter+1
Next j
Next i
Labe11.Caption=Str(Counter)
End Sub
程序运行后,单击命令按钮,标签中显示的内容是______。
A. 11
B. 12
C. 16
D. 20
[单项选择]在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程: Private Sub Command1_Click( ) Counter=0 Fori=1 To 4 For j=6 To 1 Step-2 Counter=Counter+1 Next j Next i Label1.Caption=Str(Counter) End Sub 程序运行后,单击命令按钮,标签中显示的内容是
A. 11
B. 12
C. 16
D. 20
[单项选择]在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程:
Private Sub Command1_Click( )
  a$="software and hardware"
  b$=Right(a$,8)
  c$=Mid(a$,1,8)
  MsgBox a$,,b$,c$,1
End Sub
则在弹出的信息框的标题栏中显示的信息是( )。
A. software and hardware
B. software
C. hardware
D. 1
[单项选择]在窗体上画一个命令按钮,名称为Comraandl。单击该命令按钮时,执行如下事件过程:
Private Sub Command1_Click( )
a$="software and hardware"
b$=Right(a$, 8)
c$=Mid(a$, 1, 8)+b$
MsgSox a$, 1, b$
End Sub
则在弹出的消息框的标题栏中显示的信息是______。
A. software and hardware
B. software
C. hardware
D. 1
[单项选择]在窗体上画一个命令按钮,然后编写如下代码:
Private Type Record
ID As Integer
Name As String * 20
End Type
Private Sub Command1_Click( )
Dim MaxSize, NextChar, MyChar
Open "d:/vb/tt. txt" For Input As #1
MaxSize = LOF(1)
For NextChar = MaxSize To 1 Step - 1
Seek # 1, NextChar
MyChar = Input(1, # 1)
Next NextChar
Print EOF(1)
Close $1
End Sub
假设文件d:/vb/tt. txt 的内容为 Hello eveybody! 那么程序运行后,单击命令按钮,其输出结果为 ______。
A. True
B. False
C. 0
D. Null

我来回答:

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

订单号:

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