单选题下列程序代码段中，在单击命令按钮调用 SelMid函数时，其运行结果为( )。 Private Function SelMid(aStr As String)As String Dim temp As String，sLen As Integer temp=""：sLen=Len(aStr) i=1 Do While i＜=sLen／2 temp=temp+Mid(aStr，i，1)+Mid(aStr，sLen -i+1，1) i=i+1 Loop SelMid=temp End Function Private Sub Command1_Slick() Dim Sir As String Str="abcdef"：Print SelMid(Str) End Sub
单选题下列程序是将两个文本框(text1和text2)的内容进行组合，组合后的结果在图片框(Pic1)显示出来。 Private Sub Command1_Click( ) Dim s1 As String, s2 As String s1=Text1.Text s2=Text2.Text For i=Len(s1)To 1 Step-1 s3=s3+Mid(s1，i，1)+Mid(s2，i，1) Next i Pic1.Print s3 End Sub 程序运行后，在Text1文本框中输入“ABCDE”，在 Text2文本框中输入“12345”单击命令按钮，则在Pic1图片框中显示的内容是______。
单选题表达式Asc("E")的类型是 ______。
单选题请阅读程序：
Private Sub Form Click()
m=1
For i=4To 1 Step-1
Print Str(m)；
m=m+1
For j=1 To i
Print"*"：
Next j
Print
Next i
End Sub
程序运行后，单击窗体，则输出结果是( )。
单选题在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Private Sub Command1_Click( )
Dim a As Integer
Static b As Integer
a = 20
b = 5
Call sub1(a, b)
Print a; b
End Sub
Private Sub sub1(ByRef x1 As Integer, y1 As Integer)
x1 = x1 + 3
y1 = x1 + y1
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是______。
单选题阅读程序： Function F(a As-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 Prim F(
单选题设有如下程序： Private Sub Command1_Click() Dim sum As Double, x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算—个表达式的值，这个表达式是 ______。 A) 1+1/2+2/3+3/4+4/5 B) 1+1/2+2/3+3/4 C) 1/2+2/3+3/4+4/5 D) 1+1/2+1/3+1/4+1/5
单选题当一个复选框被选中时，它的Value属性的值是______。 A) 0 B) 1 C) 2 D) 3
单选题下列关于函数过程的叙述中，正确的是( ) A．函数过程形参的类型与函数返回值的类型没有关系 B．在函数过程中，过程的返回值可以有多个 C．当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递 D．如果不指明函数过程参数的类型，则该参数没有数据类型
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 100 i=1+5 n=n+1 If i＞20 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。 A) 2 B) 3 C) 4 D) 5
单选题表达式5Mod3+3/5*2的值是
____
。
单选题窗体上有1个名称为Text1的文本框，1个名称为Timer1的计时器，且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是，单击窗体，则每隔2秒钟在Text1中显示一次当前时间。Private
Sub Form_Click()Timer1.End SubPrivate Sub
Timer1_Timer()Text1.Text=Time()End Sub为了实现上述功能，应该在横线处填入的内容为______。
A.Enabled=True
B.Enabled=False
C.Visible=True
D.Visible=False
单选题下列关于事件的叙述中不正确的是______。
A. 事件是系统预先为对象定义的能被对象认别的动作。
B. 事件可分为用户事件与系统事件两类。
C. VB为每个对象设置好各种事件，并定义好事件过程的过程名，但过程代码必须由用户自行编写。
D. VB中所有对象的默认事件都是Click。
单选题窗体上有一个名称为HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。 A) Private Sub HScroll1_Change( ) Print HScroll1. Value End Sub B) Private Sub HScroll1_Change( ) Print HScroll1. SmallChange End Sub C) Private Sub HScroll1_Scroll( ) Print HScroll1. Value End Sub D) Private Sub HScroll1_Scroll( ) Print HScroll1. SmallChange End Sub
单选题为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是______。
A.按住Alt键，不要松开，然后单击每个要选中的控件
B.按住Shift键，不要松开，然后单击每个要选中的控件
C.按住Ctrl键，不要松开，然后单击每个要选中的控件
D.拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内
单选题为启动定时器控件，需要设置定时器的属性是( )。
单选题下列可作为Visual Basic变量名的是( )。
单选题存宙体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。运行界面设有如下的类型声明：PrivateTypePersonnameAsString*8majorAsString*20EndType当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29.dat中。设文本框中的数据已正确地赋值给Person类型的变量P。则以下能够正确地把数据写入文件的程序段是
单选题要使某菜单能够通过按住键盘上的Alt键及K键打开，应
____
。
单选题若在Shape控件内以FillSyylr属性所指定的图案填充区域，而填充图案的线条的颜色由FillColor属性指定，非线条的区域由Back Style属性填充，则应______。