首页 > 计算机应用技术> JAVA程序设计
题目内容 (请给出正确答案)
[主观题]

在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后,在列表框中选择一个项目,然后单击命令

按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数。 下面是实现上述功能的程序,请填空。 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【 】 Labell.Caption=【 】 Else MsgBox("请选择要删除的项目") End If End Sub

查看答案
答案
收藏
如果结果不匹配,请 联系老师 获取答案
您可能会需要:
您的账号:,可能还需要:
您的账号:
发送账号密码至手机
发送
安装优题宝APP,拍照搜题省时又省心!
更多“在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后,在…”相关的问题
第1题
在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Command1和Label1,通过属性窗
口把列表框中的项目设置为:“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后,在列表框中选择一个项目,然后单击命令按钮。即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行情况如图16-5所示(选择“第三个项目”的情况)。下面是实现上述功能的程序,请填空。 Private Sub Command1_C1ick() If List1. List1adex>=【 】Then List1. Removeltem【 】 Label1. Caption=【 】 Else MsgBox "请选择要删除的项目" End If End Sub

点击查看答案
第2题
在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Command1和Labe11,通过属性窗
口把列表框中的项目设置为:“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行情况如图20-8所示(选择“第三个项目”的情况)。下面是实现上述功能的程序,请填空。

Private Sub Command1_Click() If List1.ListIndex>=0 Then List1.RemoveItem【 】 LabeCaption=【 】 Else MsgBox“请选择要删除的项目” End If End Sub

点击查看答案
第3题
在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Commandl和Label1,通过属性窗
口把列表框中的项目设置为:“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行情况如图所示(选择“第三个项目”的情况)。下面是实现上述功能的程序,请填空。 Pfivme Sub Command1_Click() If List1.List1ndex>=【 】Then List1.Removehem【 】 Label1.Caption=【 】 Else MsgBox“请选择要删除的项目”

End If End Sub

点击查看答案
第4题
在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。当改变当前驱动器时,目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中,这个事件过程是()。

A.Drive1_Change

B.Drive1_Click

C.Dir1_Click

D.Dir1_KeyPress

点击查看答案
第5题
在窗体上画一个命令按钮,然后编写如下程序:(假定变量x是一个窗体级变量) Dim x As Intege

在窗体上画一个命令按钮,然后编写如下程序:(假定变量x是一个窗体级变量) Dim x As Integer Sub inc(a As Integer) x=x+a End Sub Private Sub Command1_Click() inc 2 inc 3 inc 4 Print x; End Sub 程序执行后,单击Command1命令按钮,输出的结果是【 】。

点击查看答案
第6题
在窗体上画一个命令按钮Command1,然后编写如下程序: Private Sub Command1_Click() Dim arr()A

在窗体上画一个命令按钮Command1,然后编写如下程序: Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字:") If Val(x)>4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为【 】。

点击查看答案
第7题
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: Function M(x As Integer, y As I

在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: Function M(x As Integer, y As Integer) M=IIf(x>y, x, y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a=100 b=200 Print M(a, B) End Sub 程序运行后,单击命令按钮,输出结果为【 】。

点击查看答案
第8题
在窗体上画一个名称为Command1的命令按钮。编写如下事件过程: Private Sub Command1_Click() Di

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程: Private Sub Command1_Click() Dim a As String A=【 】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后,单击命令按钮,要求窗体上显示的输出结果为: 5 456 34567 2345678 123456789 请填空。

点击查看答案
第9题
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(1 To 10)

在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 程序运行后,单击命令按钮,输出结果是【 】。

点击查看答案
第10题
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。

假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。在Form1上画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请将下面的程序补充完整。 Private Sub Command1_Click() 【 】Form1 Form2.【 】 End Sub

点击查看答案
第11题
在窗体上画一个文本框和一个命令按钮,如下图所示。 编写如下程序: Private Sub Form_Lo

在窗体上画一个文本框和一个命令按钮,如下图所示。

编写如下程序: Private Sub Form_Load() Show Text1.Text=" " Form1.KeyPreview=False Text1.SetFocus End Sub Private Sub Command1_Click() KeyPreview=Not KeyPreview Print End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print UCase(Chr(KeyAscii+1)); End Sub Private sub Text1_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii+2) KeyAscii=0 End Sub 阅读以上程序,理解每个事件过程的操作,然后填空。 ①程序运行后,直接从键盘上输入abc,程序输出的结果是【 】。 ②程序运行后,单击一次“命令按钮1”,然后从键盘上输入abc,程序输出的结果是【 】。

点击查看答案
退出 登录/注册
发送账号至手机
密码将被重置
获取验证码
发送
温馨提示
该问题答案仅针对搜题卡用户开放,请点击购买搜题卡。
马上购买搜题卡
我已购买搜题卡, 登录账号 继续查看答案
重置密码
确认修改