单选题在VB中,工程文件的扩展名是( )
单选题在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并编写有如下事件过程: Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=j+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的是( )。
单选题在窗体上画一个名称为Text1的文本框,然后编写如下代码:
Option Base 1
Private Sub Form Click()
Dim arr
Dim Start As Integer, Finish As Integer
Dim Sum As Integer
arr = Array(12, 4, 8, 16)
Start = LBound (arr)
Finish = UBound (arr)
Sun = 0
For i = Start To Finish
Sum = Sum + arr(i)
Next i
c = Sum/Finish
Text1.Text = c
End Sub
程序运行后,单击窗体,则在文本框中显示的内容是______ 。
单选题下列语句中正确的是
____
。
单选题下列程序运行后,单击命令按钮,窗体显示的结果为( )。 Private Function pl(x As Integer,y As Integer,z As Integer) pl=2*x+y+3*z End Function Private Function p2(X As Integer,y As Integer,z As Integer) p2=p1(z,y,x)+x End Function Private Sub Commandl_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2:b=3:c=4 Print p2(c,b,a) End Sub
单选题在窗体上画一个文本框,名称为Text1,然后编写如下程序: Private Sub Form Load() Private Sub Form Click() Text1.Text="":Text1.SetFocus Dim a As String,S As String End Sub a=Text1.Text:s="" For k=l To Len(a) s=UCase(Mid(a,k,1))+s Next k Text1.Text=s End Sub 程序运行后,在文本框中输入一个字符串,然后单击窗体,则文本框中的内容
单选题在窗体上画一个名为Check1的复选框,如果在窗体启动事件中编写语句“Cheek1.Enabled=False”,则运行后复选框的状态为( )。
单选题设在窗体上有一个名称为Commanel1的命令按钮和一个名称为Text1的文本框。要求单击Command按钮时可把光标移到文本框中。下面正确的事件过程是______。
单选题假设有如下事件过程: Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button=2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是______。
单选题下列说法不正确的是( ) A.滚动条的重要事件是Change和Scroll B.框架的主要作用是将控件进行分组,以完成各自相对独立的功能 C.组合框是组合了文本框和列表框的特性而形成的一种控件 D.计时器控件可以通过对Visible属性的设置,在程序运行期间显示在窗体上
单选题把窗体的KeyPreview属性设置为True。然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch.As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2)
单选题在窗体上画两个标签和—个命令按钮,其名称分别为Label1、Labd2和Command1,然后编写如下程序:Private Sub
func (L As Label) L.Caption="1234"End SubPrivate
Sub Form_ Load() Label1. Caption="ABCDE"
Label2.Caplion=10End SubPrivate Sub Command1_ Click()
a=Val(Label2. Caption) call func(Label1)
Label2.Caption=aEnd Sub 程序运行后,单击命令按钮,则在两个标签中显示的内容分别为
______。
A. ABCD和10
B. 1234和100
C. ABCD和100
D. 1234和10
单选题下面程序计算并输出的是( ) Private Sub Command1_Click() a=10 s=0 Do s=s+a*a*a a=a-1 Loop Until a<=0 Print s End Sub A.13+23+33+…+103的值 B.10! +…+3! +2! +1!的值 C.(1+2+3+…+1O)3的值 D.10个103的和
单选题在窗体上画一个名称为CommonDialogl的通用对话框,一个名称为Commandl的命令按钮。然后编写如下事件过程: Private Commandl_Click() CommonDialogl.FileName="" CommonDialogl.Filter="Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt" CommonDialogl.Filterlndex=2 CommonDialogl.DialogTifle="VBTest" CommonDialogl.Action=1 EndSub 对于这个程序,以下叙述中错误的是( )。 A.该对话框被设置为“打开”对话框 B.在该对话框中指定的默认文件名为空 C.该对话框的标题为VBTest D.在该对话框中指定的默认文件类型为文本文件(*.Txt)
单选题设有如下数组声明: Dim a()As Single 下面关于这一声明的叙述中正确的是( )。
单选题英文缩写“OOP'’的含义是( )。
单选题在窗体上画一个命令按钮,名称为Command1,然后编写如下代码: Option Base 0 Private Sub Command1_Click() Dim A1 (4) As Integer, A2 (4) As Integer For k = 0 To 2 A1 (k+1) = InputBox("请输入一个整数") A2 (3-k) = A1(k+1) Next k Print A2(k) End Sub 程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为( )。 A) 0 B) 1 C) 2 D) 3
单选题以下能正确定义数据类型Systemlnfo的代码是( )。
单选题Load事件是在窗体被载入工作区时______触发的事件。
单选题下列叙述中正确的是
