单选题已知通用对话框名为Cdlg,则执行下列的______语句,将弹出“打开文件”对话框。
单选题在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim Arr1(10)As Integer,arr2(10)As Integer n=3 For i=1 To 5 Arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n);Arr1(n) End Sub 程序运行后,单击命令按钮,输出结果是 ______。
单选题下列程序执行的结果为 x=25:y=20: z=7
Print"S(";x+2*y;")"
A. S(47)
B. S(165)
C. S(25+7*20)
D. S(87)
单选题要使文本框获得输入焦点,则应采用文本框控件的方法是
单选题在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Labet3的标签,然后编写如下代码:
Private x AS Integer Private Sub
Command1_Click{{U}} {{/U}}
Static y As Integer
Dim 2 As Integer
n=10 Z=n+2
y=y+2
X=X+2
Label1.Caption=x
Label2.Caption=y
Label3.Caption=z End Sub
运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是
A.10 10 10
B.30 30 30
C.30 30 10
D.10 30 30
单选题设窗体上有一个名称为Checkl的复选框,并有下面程序代码:Private Sub Check l一MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)Checkl.Value=lEnd 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_Chck()
Form2.Show
End Sub
Form2的代码如下:
Private Sub Command1_Click()
Print Form1.x,y
End Sub
Module1的代码如下:
Public y As Integer
运行以上程序,单击Form1的命令按钮Command1,则显示Form2;再单击Form2上的命令按钮Command1,则窗体上显示的是______。
单选题以下关于多重窗体程序的叙述中,错误的是( )。
单选题从键盘上输入一个实数nu,利用字符串函数对该数进行处理,如果输出的内容不是字符End,则程序输出的内容是
nu = InputBox("nu = ")
n$ = Str$ (nu)
p=InStr(n$,".")
if p>0 Then
Print Mid$(n$.p)
Else
Print "END"
End If
单选题单击命令按钮执行下列程序,其输出结果是( )。
Private Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer
a=3
b=4
c=5
Prim SecProc(c,b,a)
End Sub
Function FirProc(x As Integer,y As Integer,z As Integer)
FirProc=2*x+y+3*z
End Function
Function SecProc(x As Integer,y As Integer,z As Integer)
SecProc=FirProc(z,x,y)+x
End Function
单选题在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程: Private Sub Command1_Click() b=5 c=6 Pdnta=b+c End Sub 程序运行后,单击命令按钮,输出的结果是______。
单选题为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为______。 A) Dim pi As Integer B) Dim pi As Single C) Dim pi As Boolean D) Dim pi As Long
单选题以下是求1~100之间5或7的倍数的和,如下程序段:
Sum = 0
For i = 1 To 100
If i Mod 5 = 0 Or i Mod 7 = 0 Then
【】
End If
Next i
Print Sum
其中【】处书写正确的是( )
单选题能够获得一个文本框中被选取文本的内容的属性是( )。 A) Text B) Length C) SelText D) SelStart
单选题在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim I, Num
Randomize
Do
For I=1 To 1000
Num=Int(Rnd*100):Print Num;
Select Case Num
Case 12
Exit For
Case 58
Exit Do
Case 65, 68, 92
End
End Select
Next I
Loop
End Sub
上述事件过程执行后,下列描述中正确的是
单选题在某个事件过程中定义的变量是
单选题序言性注释的主要内容不包括______。
A. 模块的接口
B. 模块的功能
C. 程序设计者
D. 数据的状态
单选题在窗体上画l个命令按钮和l个文本框,其名称为Command1和Text1,再编写如下程序:
Dim ss As String
Private Sub Text1 KeyPress(KeyAscii As Integer)
If Chr(KeyAscii)<>""Then ss=ss+Chr(KeyAscii)
End Sub
Private Sub Command1 Click()
Dim m As String,i As Integer
For i=Len(ss)To 1 Step-1
m=m+Mid(SS,i,1)
Next
Text1.Text=UCase(m)
End Sub
程序运行后,在文本框中输入“Number 100”,并单击命令按钮,则文本框中显示的就是( )。
单选题在以下Form1窗体中没有采用的控件是{{U}}{{/U}}A.文本框B.水平滚动条C.框架D.选项按钮
单选题有如下程序: Private Sub Command1_Click() a$="A WCIRKER IS HERE" x=Len(a$) For i=1 To x-1 b$=Mid$(a$,i,3) If b$="WOR"Then S=S+1 Next Print S End Sub 单击命令按钮,程序运行结果为