标签：二级VB程序设计

设有如下事件过程：Private Sub Form_Click() Sum＝0 For k＝1 To 3 If k<＝1 Then x＝1 ElseIf k<＝2 Then x＝2 ElseIf k<＝3 Then x＝3 Else x＝4 End If Sum＝Sum＋x Next k Print SumEnd Sub程序运行后，单击窗体，输出结果是( )。 🔥 626
下列说法中，错误的是( )。 🔥 623
以下关于键盘事件的叙述中，错误的是( )。 🔥 614
在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：Private X As Integer Private Sub Command1_Click() X＝5： Y＝3 Call proc(X， Y) Label1.Caption＝X Label2.Caption＝Y End Sub Private Sub proc(a As Integer， ByVal b As Integer) X＝a * a Y＝b＋b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是( )。 🔥 613
)窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：Private Sub Command1_Click() Dim n%，k% n＝Len(Text1.Text) For k＝0 To Listl.ListCount－1 If Left(List1.List(k)，n)＝Text1.Text Then List1.RemoveItem k End If Next kEnd Sub在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k＝0 To List1.ListCount－1改为( )。 🔥 613
以下不能触发滚动条Change事件的操作是( )。 🔥 607
以下关于窗体的叙述中，错误的是( )。 🔥 605
一间宿舍可住多个学生，则实体宿舍和学生之间的联系是( )。 🔥 595
设有如下Command1的单击事件过程及fun过程：Private Sub Command1_Click() Dim x As Integer x＝Val(InputBox("请输入一个整数")) fun(x)End SubPrivate Sub fun(x As Integer) If x Mod 2＝0 Then fun(x / 2) Print x；End Sub执行上述程序，输入6，结果是( )。 🔥 590
窗体上有一个名称为Text1的文本框；一个名称为Timer1的计时器控件，其Interval属性值为5000，Enabled属性值是True。Timer1的事件过程如下：Private Sub Timer1_Timer() Static flag As Integer If flag＝0 Then flag＝1 flag＝－flag If flag＝1 Then Text1.ForeColor＝&HFF& '&HFF&为红色 Else Text1.ForeColor＝&HC000& '&HC000&为绿色 End IfEnd Sub以下叙述中正确的是( )。 🔥 587
在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click() a＝InputBox("Enter an integer") b＝Text1.Text Text1.Text＝b＋a End Sub程序运行后，在文本框中输入456，然后单击命令按钮，在输入对话框中输入123，则文本框中显示的内容是( )。 🔥 587
为了将"联想电脑"作为数据项添加到列表框List1的最前面，可以使用语句( )。 🔥 586
下面是求最大公约数的函数的首部：Function gcd(ByVal x As Integer， ByVal y As Integer)As Integer若要输出8、12、16这3个数的最大公约数，下面正确的语句是( )。 🔥 585
设有如下通用过程：Public Function Fun(xStr As String)As String Dim tStr As String， strL As Integer tStr＝"" strL＝Len(xStr) i＝strL / 2 Do While i<＝strL tStr＝tStr & Mid(xStr， i＋1， 1) i＝i＋1 Loop Fun＝tStr & tStrEnd Function在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click() Dim S1 As String S1＝"ABCDEF" Text1.Text＝LCase(Fun(S1))End Sub程序运行后，单击命令按钮，文本框中显示的是( )。 🔥 574
窗体上有名称为Command1的命令按钮和名称为Text1的文本框Private Sub Command1_Click() Text1.Text＝"程序设计" Text1.SetFocusEnd SubPrivate Sub Text1_GotFocus() Text1.Text＝“等级考试”End Sub运行以上程序，单击命令按钮后( )。 🔥 572
相关标签
仓库 自由 循环 没有违法行为 江西 编辑 入口 sun 子句 人工智能 baike.baidu.com 导致 载率 sno 书写 insert