在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Co mmand1,然后编写如下事件过程:
Private Sub Form_Load()
List1.AddIte m"Ite m1"
List1.AddIte m"Ite m2"
List1.AddIte m"Ite m3"
End Sub
Private Sub Co mmand1_Click()
List1.List(List1.ListCount)="AAAA"
End Sub
程序运行后,单击命令按钮,其结果为( )。
发布于 2022-05-11 09:59:06
登录后免费查看答案
关注者
0
被浏览
12
1 个回答
推荐阅读
-
在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程:Private Sub Form_Load()List1.AddItem "Item 1"List1.AddItem "Item 2"List1.AddItem "Item 3"End SubPrivate Sub Command1_Click()List1.List(List1.ListCount) = "AAAA"End Sub程序运行后,单击命令按钮,其结果为
2022-05-11 关注 0 浏览11 1答案
-
窗体上有一个列表框和一个文本框,编写下列两个事件过程:Private Sub Form.Load( )List1.AddIte m"北京"List1.AddIte m"天津"List1.AddIte m"上海"Textl .Text =""End SubPrivate Sub List1.Click( )Print Textl .Text +List1.TextEnd Sub程序运行后,在文本框中输入"中国",然后单击列表框中的"北京",则输出结果是( )。
2022-05-11 关注 0 浏览10 1答案
-
在窗体上画一个名为Co mmand1的命令按钮,然后编写以下程序:Private Sub Co mmand1_Click()Di m M(10)As IntegerFor k =l To 10M(k)=12-kNextkx=8Print M(2+M(x))End Sub运行程序,单击命令按钮,在窗体上显示的是( )。
2022-05-11 关注 0 浏览19 1答案
-
设窗体上有一个名为List1的列表框,并编写下面的事件过程:Private Sub List1_Click( )Dim ch As Stringch=List1.List(List1.Listlndex)List1.RemoveItem List1.ListlndexList1.Addltem chEnd Sub程序运行时,单击一个列表项,则产生的结果是( )。
2022-05-11 关注 0 浏览14 1答案
-
设工程文件包含两个窗体文件Form1.frm、Form2.frm 及一个标准模块文件Module1.bas ,两个窗体上分别只有一个名称Co mmand1的命令按钮。Form1的代码如下:Public X As IntegerPrivate Sub Form_load()x=1y =5End SubPrivate Sub Co mmand1_Click()Form2.ShowEnd SubForm2的代码如下:Private Sub Co mmand1_Click()Print Form1.x,yEnd SubModule1的代码如下:Public y As Integer运行以上程序,单击Form1的命令按钮Co mmand1,则显示Form2;再单击Form2上的命令按钮Co mmand1,则窗体上显示的是( )。
2022-05-11 关注 0 浏览13 1答案
-
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Co mmand1,然后编写下列程序:Private Sub func(LAs Label)L .Caption ="1234"End SubPrivate Sub Form_Load()Label1.Caption ="ABCDE"Label2.Caption =10End SubPrivate Sub Co mmand1_Click()a=Val(Label2.Caption)Call func(Label1)Label2.Caption =aEnd Sub程序运行后,单击命令按钮,则在两个标签中显示的内容分别为( )。
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画一个命令按钮和一个标签,其名称分别为Co mmand1和Labell ,然后编写如下事件过程:Private Sub Co mmand1_Click()Counter =0For i =1To 4For j=6To 1Step -2Counter =Counter +1Next jNext iLabel1.Caption =Str(Counter)End Sub程序运行后,单击命令按钮,标签中显示的内容是( )。
2022-05-11 关注 0 浏览14 1答案
-
窗体上有Co mmand1、Co mmand2两个命令按钮。现编写以下程序:Option Base 0Di ma()As Integer ,m As IntegerPrivate Sub Co mmand1Click()m=InputBox("请输入一个正整数")ReDi ma(m)End SubPrivate Sub Co mmand2Click()m=InputBox("请输入一个正整数")ReDi ma(m)End Sub运行程序时,单击Co mmand1后输入整数10,再单击Co mmand2后输入整数5,则数组a 中元素的个数是( )。
2022-05-11 关注 0 浏览9 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮,然后编写如下程序:Public Enumsa=4b =3End EnumPrivate Sub Co mmand1_Click()Di mx As Integerx=aIf x>=3ThenMsgBox "Pass !"End Sub运行程序,其结果是( )。
2022-05-11 关注 0 浏览8 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮,然后编写下列事件过程:Private Sub Co mmand1_Click()c =1234c1=Tri m(Str(c))For i =1To 4Print NextEnd Sub程序运行后,单击命令按钮,要求在窗体上显示下列内容:1121231234则在横线处应填入的内容为( )。
2022-05-11 关注 0 浏览9 1答案