设有如图所示窗体和以下程序: Private Sub Co mmand1_Click() Text1.Text ="Visual Basic" End Sub Private Sub Text1_LostFocus() If Text1.Text <>"BASIC"Then Text1.Text ="" Text1.SetFocus End If End Sub 程序运行时,在Text1文件框中输入"Basic"(如图所示),然后单击Co mmand1按钮,则产生的结果是( )。
窗体上添加一个文本框Textl ,编写下列代码: Private Sub Textl_KeyDown(KeyCode As Integer ,ShiftAs Integer) Print Chr(KeyCode +51&KeyCode) End Sub 程序运行时,在文本框中输入"ab",则在窗体上输出为( )。
在窗体上画一个命令按钮和一个标签,其名称分别为Co mmand1和Labell ,然后编写如下事件过程: Private Sub Co mmand1_Click() Counter =0 For i =1To 4 For j=6To 1Step -2 Counter =Counter +1 Next j Next i Label1.Caption =Str(Counter) End Sub 程序运行后,单击命令按钮,标签中显示的内容是( )。
下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。请选择正确的程序段( ),完成程序。 Private Sub Co mmand1Click( ) Di marr(1To 20) For i =1To 20 arr(i)=_________ Textl .Text =Textl .Text &arr(i )&Chr(13)&Chr(10) Next i Sum=0 For Each X If X>50Then Print Tab(20);X Sum=Sum+X End If Next X Print Tab(20);"Sum=";Sum End Sub
在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command1_Click() Dim a(3,3) For m=1 To 3 For n=1 To 3 If n=m or n=4-m Then a(m,n)=m+n Else a(m,n)=0 End If Print a(m,n); Next n Print Next m End Sub 运行程序,单击命令按钮,窗体上显示的内容为( )。
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp 的事件过程如下: Private Sub Text1_KeyUp(KeyCode As Integer ,shiftAs Integer) Di m CAs stri ng Text2.Text =Chr(Asc(c)+2) End Sub 当向文本框Text1中输入小写字母a 时,文本框Text2中显示的是( )。
窗体上有一个名称为Co mmand1的命令按钮,其单击事件过程及有关函数过程如下: Private Sub Co mmand1_Click() Di mn As Integer n =add(5,10) Print n End Sub Function add(v1As Integer ,v2As Integer ,Optionalv3)As Integer If Not Is Missi ng(v3)Then add =v1+v2+v3 Else add =v1+v2 End If End Function 运行程序,单击命令按钮,以下叙述中正确的是( )。
设有如下通用过程: Public Function f(x As Integer) Di my As Integer x=20 y =2 f =x*y End Function 在窗体上画一个名称为Co mmand1的命令按钮,然后编写如下事件过程: Private Sub Co mmand1_Click() Static x As Integer x=10 y =5 y =f(x) Print x;y End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Co mmand1,其下标从左到右分别为0、1、2、3,窗体外观如图所示。 命令按钮的事件过程如下: Private Sub Co mmand1_Click(Index As Integer) Select Case Index Case 0 CD1 .Action =1 Case 1 CD1 .ShowSave Case 2 CD1 .Action =5 Case 3 End End Select End Sub 对上述程序,下列叙述中错误的是( )。
窗体上有两个水平滚动条HV、HT,还有一个文本框Text1和一个标题为"计算"的命令按钮Co mmand1,并编写了以下程序: Private Sub Co mmand1_Click() Call Cale (HV.Value ,HT.Value) End Sub Public Sub Cale(x ASInteger ,y ASInteger) Text1.Text =x*y End Sub 运行程序,单击"计算"按钮,可根据速度与时间计算出距离,并显示计算结果。对以上程序,下列叙述中正确的是( )。
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Co mmand1_Click() x=0 Do Until x=-1 a=InputBox("请输入A 的值") a=Val(a) b =InputBox("请输入B的值") b =Val(b) x=InputBox("请输入x 的值") x=Val(x) a=a+b +x Loop Print a End Sub 程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为( )。
在窗体上画一个名称为Co mmand1的命令按钮,再画两个名称分别为Labell、Label2的标签,然后编写如下程序代码: Private X As Integer Private Sub Co mmand1_Click() X=5:Y =3 Call proc(x,y) Labell .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 程序运行后,单击命令按钮,则两个标签中显示的内容分别是( )。