单选题有如下的程序：Private Sub Command1_Click( ) Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Pid(k，m) ：Print P； P=Pid(k，m) ：Print PEnd SubPrivate Function Pid(a As Integer，b As Integer) Static m As Integer，i As Integer m=5：i=2 i=i + m + 1 m=i + a + b Pid=m/2End Function单击命令按钮后，输出结果为
单选题下列关于菜单项的描述中，错误的是
单选题使用Public Const语句声明一个全局的符号常量时，该语句应放在 ______。
单选题设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下： Public x As Integer Private Sub Command1_Click() Form2.Show End Sub Private Sub Form_Load() x=1 y=5 End Sub Form2的代码如下： Private Sub Command1_Click() Print Form1.x,y End Sub Module1的代码如下： Public y As Integer 运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是
单选题假定一个工程由一个窗体文件Forml和两个标准模块文件Model1及Model2组成。 Model1代码如下： Public x As Integer Public y As Integer Sub S1() x=1 S2 End Sub Sub S20 y=10 Form1.Show End Sub Model2的代码如下： Sub Main() S1 End Sub 其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是( )。
单选题下列程序代码段中，在单击命令按钮调用SelMid函数时，其运行结果为( )。Private Function SelMid(aStr As String)As StringDim temp As String，sLen As Integertemp=""：sLen=Len(aStr)i=1Do While i＜=sLen／2temp=temp+Mid(aStr，i，1)+Mid(aStr，sLen-i+1，1)i=i+1LoopSelMid=tempEnd FunctionPfivate Sub Command1_Click()Dim StrAs StringStr="abcdef"：Print SelMid(Str)End Sub
单选题下面的语句用Array函数为数组变量a的各元素赋整数值： a=Array(1，2，3，4，5，6，7，8，9) 针对a的声明语句应该是( )。 A) Dim a B) Dim a As Integer C) Dim a(9) As Integer D) Dim a() As Integer
单选题运行下面的程序，单击命令按钮，输出结果为( )。 FunctionF(aAs Integer) b＝0：Static c b＝b＋1：c＝c＋1：F＝a＋b＋c End Function Private sub Command1_Click() Dim a As Integer a＝2 For i＝1 To 3 PrintF(a) Next i End Sub
单选题窗体上有一个名称为Label1的标签控件，其Caption属性的初始值为0，还有一个计时器。为了在程序运行时，标签上的数字每秒加1，应该把语句：Label1.Caption = Label1.Caption + 1 写在一个事件过程中，这个事件过程是
单选题在窗体上添加一个文本框，其名称为text1，然后编写如下的Load事件过程，则该程序的运行结果是______。
Private Sub form_ load
Text1. Text = " "
t = 1
for k = 10 To 6 Step -2
t= t* k
Next k
Text1. Text = t
End Sub
单选题窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Command1_Click()
Dim m As Integer , n As Integer
m=InputBox(“输入第一个数”)
n=InputBox(“输入第二个数”)
Do While m<>n
Do While m>n
m=m-n
Loop
Do While n>m
n=n-m
Loop
Loop
Print m
End Sub
该程序的功能是
单选题以下程序运行后，输出结果是( )。 For i=1 To 3 Print Tab(3*j);2*(j-1) Next j Print A) 1 3 25 B) 19 25 C) 0 2 4 D) 1 3 5
单选题窗口上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commmand1_Click() x=InputBox(“Input”) Select Case x Case 1，3 Print”分支1” Case Is>4 Print”分支2” Case Else Print”Else分支” End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是
单选题下列叙述中正确的是( )。
单选题一个工程中包含两个名称分别为Forml、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Forml、Form2和md1Func中分别建立了自定义过程，其定义格式为： Form1中定义的过程： Private Sub frmFunctionl() ... End Sub Form2中定义的过程： Public Sub frmFunction2() ... End Sub md1Func中定义的过程： Public Sub mdlFunction() ... End Sub 在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是 A) 上述三个过程都可以在工程中的任何窗体或模块中被调用 B) frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用 C) 上述三个过程都只能在各自被定义的模块中调用 D) 只有mdlFunction过程能够被工程中各个窗体或模块调用
单选题某人编写了下面的程序 Privme Sub Command1_Click() Private Sub pro(n As Integer) Dim a As Integer，b As Integer While(n>0) a=InputBox("请输入整数") Print n Mod 10；n=n＼10 b=InputBox("请输入整数") Wend pro a：pro b Print Call pro(a+b) End Sub End Sub 此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序输出这2个数之和的每一位数字。例如：若输入123和234，则应该输出： 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前2行(即2个数的反序)，而未输出第3行(即2个数之和的反序)，程序需要修改。下面的修改方案中正确的是
单选题求1! +2! +……+10! 的程序如下： Private Function s(x As Integer) f=1 For i = 1 To x f=f * i Next s=f End Function Private Sub Command1_Click( ) Dim i As Integer Dim y As Long Fori=1 To 10 ______ Next Print y End Sub 为实现功能要求，程序的横线处应该填入的内容是( )。 A) Call s(i) B) Call s C) y=y+s(i) D) y=y+s
单选题组合框是文本框和( )特性的组合。
单选题阅读程序： Private Sub Command1_Click() Dim arr Dim i As Integer art=Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For i=0 To 2 Print arr(7-i); Next End Sub 程序运行后，窗体上显示的是( )。
单选题算法的时间复杂度是指( )。 A) 执行算法程序所需要的时间 B) 算法程序的长度 C) 算法执行过程中所需要的基本运算次数 D) 算法程序中的指令条数