设有如图所示窗体和以下程序: Private Sub Command1_Click() Textl.Text=“Visual Basic” EndSub Private Sub Text1_LostFocus() If Text1.Text <>“BASIC”Then Text1.Text=”” Text1.SetFocus End If End Sub 程序运行时,在Text1文件框中输入“Basic”(如图所示),然后单击Command1按钮,则产生的结果是
窗体上有一个名称为Command1的命令按钮,其事件过程如下: Private Sub Command1_Click() x=“VisualBasicProgramming” a=Right(x,11) b=Mid(x,7,5) C=Msgbox(a, , b) End Sub 运行程序后单击命令按钮,以下叙述中错误的是
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas,两个窗体上分别只有一个名称Command1的命令按钮。 Form1的代码如下: Public X As Integer Private Sub Form_load() x=1 y=5 End Sub Private Sub Command1_Click() Form2.Show End Sub Form2的代码如下: Private Sub Command1_Ciick() Print Form1.x,y End Sub Module1的代码如下: Public y As Integer 运行以上程序,单击Form1的命令按钮Command1,则显示Form2;再单击Form2上的命令按钮Command1,则窗体上显示的是
窗体上有一个名称Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下: Private Type x a As Integer b AS Integer End Type Private Sub Command1_Click() Dim y As x y.a = InputBox(“”) If y.a\2=y.a/2 Then y.b=y.a*y.a Else y.b = Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序,下列叙述中错误的是
窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数Command1,其下标从左到右分别为0、1、2、3,窗体外观如图所示。 命令按钮的事件过程如下: Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1.Action=1 Case 1 CD1.ShowSave Case 2 CD1.Acti_dj=5 Case 3 End End Select End Sub 对上述程序,下列叙述中错误的是
窗体上有两个水平滚动条HV、HT,还有一个文本框Text1和一个标题为“计算”的命令按钮Command1,并编写了以下程序: Private Sub Command1_ClickO Call Cale (HV.Value, HT.Value) End Sub Public Sub Cale(x AS Integer , y AS Integer) Text1.Text = x* y End Sub 运行程序,单击“计算”按钮,可根据速度与时间计算出距离,并显示计算结果。对以上程序,下列叙述中正确的是
现有如下程序: Private Sub Command1_ Click() S=0 For i=1 to 5 S=S+f(5+i) Next Print S End Sub Public Function f(x As Integer) If x>=10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序,则窗体上显示的是
窗体上有一个名称为Picture1图片框控件,一个名称Label1的标签控件。如图所示。 现有如下程序: Public Sub display (x As Control) If TypeOf x is Label Then x.Caption=“计算机等级考试” Else x.Picture = Loadpicture(“pic.jpg”) EndIf End Sub Private Sub Label1_Click() Call display(Label1) End Sub Private Sub Picture1_Click() Call display(Picture1) End Sub 对以上程序,下列叙述中错误的是
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp的事件过程如下: Private Sub Text1_KeyUp(KeyCode As Integer , shift AS Integer) Dim C AS string Tcxt2.Text=Chr(Asc(c)+2) End Sub 当向文本框Text1中输入小写字母a时,文本框Text2中显示的是
设窗体上有一个文体框Text1和一个命令按钮Command1,并有以下事件过程: Private Sub Command1_Click() Dim S As String , ch As String S=“” For k=1 TO Len(Text1) ch = Mid(Text1,k,l) S=ch+S Next k Text1.Text=S End Sub 程序执行时,在文本框中输入“Basic”,然后单击命令按钮,则Text1中显示的是
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 TO 10 a(K)=InputBox(“输入一个整数”) Next k Max=0 For k=1 To 10 If a(k)>max Then Max = a(k) End If Next k Print max End Sub 运行程序时发现,当输入10个正数时,可以得到正确结果,但输入10个负数时结果是错误的,程序需要修改,下面的修改中可以得到正确运行结果的是
已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下: Option Base 1 Private Sub Command1_Click() Dim sum As Integer Sum=0 For i=1 To 4 For j=1 To 3 Sum = sum + score(i,j) Next j Print“第”&i&”个学生的总分是:”;sum Next i End Sub 运行此程序时发现,除第1个人的总分计算正确外,其他人的总分是错误的。程序需要修改。以下修改方案中正确的是
窗体上命令按钮Command1的事件过程如下: Private Sub Command1_Click() Dim total As Integer total = s(1)+s(2) Print total End Sub Private Function s(m As Integer) As Integer Static x As Integer For i =1 To m x=x+1 Next i S=x End Function 运行程序,第3次单击命令按钮Command1时,输出结果为 ______
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base l Private Sub Command1_Click() Dim a(10) As Integer For i=1 To 10 a(i)=i Next Call swap ( ______ ) For i=1 To 10 Print a(i) Next End Sub Sub swap (b() As Integer) n= ______ For i=1 To n/2 t=b(i) b(i)=b(n) b(n)=t ______ Next End Sub 上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,请填空。
在窗体上面一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程: Private Sub Command1_Click() CommonDialog1.Filter=“All Files(*.*)|*.*|Text Files”_ &”(*.txt)|*.txt|Batch Files(*.bat)|*.bat” CommonDialog1 Filterlndex=1 Commondialog1.ShowOpen MsgBox CommonDialog1.File Name End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是______;如果在对话框中选择d盘temp目录下的tel.txt文件,然后单击“确定”按钮,则在MsgBox信息框中显示的提示信息是______ 。
以下程序的功能是:把程序文件smtext1.txt的内容全部读入内存,并在文本框Text1中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text=“” Open“smtext1.txt” ______As ______ Do While ______ Input#2, inData Text1.Text=Text1.Text& inData Loop Close #2 End Sub