柠檬试题库
计算机
公务员
驾照
计算机
公务员
驾照
标签:
二级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
上一页
下一页
4
/ 27
相关标签
仓库
自由
循环
没有违法行为
江西
编辑
入口
sun
子句
人工智能
baike.baidu.com
导致
载率
sno
书写
insert