单选题假定有如下的Sub过程： Sub S(x As Single,y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=2 S a,b print a,b End Sub 程序运行后，单击命令按钮，输出结果是( )。
单选题窗体上有1个名称为List1的列表框，其中已经输入了若干个项目，如图所示；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有下列事件过程。PrivateSubCommand1_Click()DimstrAsString,sAsString,kAsIntegers=Text1str=""Fork=List1.ListCount-1To0Step-1IfInStr(List1.List(k),s)＞0Thenstr=str&List1.List(k)&""EndIfNextkIfstr=""ThenText2="没有匹配的项目"ElseText2=strEndIfEndSub程序运行时，在Text1中输入"京"，单击命令按钮，则在Text2中显示的内容是______。
单选题运行以下程序后，输出的图案是()。Form1.ClSA$=Strillg$(10，“*”)Fori=1To5n=10-2*IX$=A$：Y$=Space$(n)Mid$(X$，i+1，n)=Y$PrintX$Nexti
单选题假定在窗体上建立了一个通用对话框，其名称为Cd1，用下面的语句可以建立一个对话框： Cdl. ShowPrinter 与该语句等价的语句是 ( )
单选题数学式Y
2
=x>10在VB中应表示为( )。
单选题命令按钮Command1的单击事件过程如下： Private Sub Command1_Click( ) Dim a( 10, 10)As Integer x=0 For i = 1 To 3 For j = 1 To 3 a(i, j) =i * 2 Mod j If x＜a(i, j)Then x=a(i, j) Next Next Print x End Sub 执行上述事件过程后，窗体上显示的是( )。 A) 1 B) 2 C) 3 D) 4
单选题在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click( ) A=Text1.Text+Text2.Text Print a End Sub Private Sub Form_Load( ) Text1.Text="" Text2.Text="" End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入33和44，然后单击命令按钮，则输出结果为______。
单选题根据变量的作用域，可以将变量分为3类，分别为（ ）。
单选题设窗体上有2个框架，每个框架中有若干个单选按钮，下面叙述中正确的是( )。
单选题下列程序的运行结果为( )。
Dim a(-1 To 6)
For i=LBound(a，1)To UBound(a，1)
a(i) = i
Next i
Print a (LBound(a，1))；a(UBound(a，1))
单选题下列关于顺序文件的描述中，正确的是( )。
单选题一名演员可以出演多部电影，则实体演员和电影之间的联系是
单选题标准模块中有如下程序代码：
Public x As Integer,y As Integer
Sub var_pub()
x=10:y=20
End Sub
在窗体上有1个命令按钮，并有如下事件过程：
Private Sub Command1_Click()
Dim x As Integer
Call var_pub
x=x+100
y=y+100
Print x;y
End Sub
运行程序后单击命令按钮，窗体上显示的是______。
单选题VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母
单选题在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为“myform1”，双击控件数组中的第3个按钮，打开代码编辑器，写下如下代码： Privae Sub M1_Click(lndex As Integer) Form1.Caption="myform 2“ End Sub 运行时，单击按钮数组中的第1个按钮，窗体标题为( )。 A) Form1 B) M1 C) myform1 D) myform2
单选题要求产生10个随机整数，存放在数组arr中，从键盘输入要删除的数组元素的下标，将该元素中的数组删除，后面元素中的数据依次前移，并显示删除后剩余的数据，现有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim arr(10) AS Integer
For i=1 to 10
arr(i)=int (Rnd*100)
Print arr(i);
Next
x=inputbox(“输入1到10的一个整数：”)
For i=x+1 to 10 ‘循环2
arr(i-1)=arr(i)
Next
For i=1 to 10 ‘循环3
Print arr(i);
Next
End Sub
程序运行后发现显示的结果不正确，应该进行的修改是（ ）。
单选题在文件列表框中，要使它能够显示隐藏文件，应使它的
____
属性为True。
单选题以下语句中哪句可以选择指定的表项或取消已选择的表项
单选题运行以下程序时，由键盘为变量load输入的数据为20，输出结果为______。 Private Function Wei(load As Integer)，Money As Single If load＜20 Then Money=load/2 Else Money=20+load End if Wei=Money End Function Private Sub Form _Click() Dim load As Integer，fee As Single load=InputBox(“请输入一个数：”) fee=Wei(loaD) Print fee End Sub
单选题程序的3种基本控制结构是 A) 过程、子过程和分程序 B) 顺序、选择和重复 C) 递归、堆栈和队列 D) 调用、返回和转移