单选题以下程序将随机产生n个两位整数，并使用冒泡法将它们按递增顺序排序后输出。
Option Base 1
Private Sub Command1_Click()
Dim a()As Integer
Dim i As Integer,j As Integer
Randomize
n=InputBox("输入数据个数")
ReDim a(n)
For i=1 To n
a(i)=Int(Rnd*90)+10
Next i
For i=1 To n-1
For j=1 To n-i
If a(j)＜a(j-1)Then
temp=a(j):a(j)=a(j-1):a(j-1)=temp
End If
Next j
Next i
For i=1 To n
Print a(i);
Next i
End Sub
运行以上程序，发现有错误，需要对j循环的开始语句进行修改。以下正确的修改是
单选题在窗体模块的声明部分声明变量时，不能使用的关键字是
单选题数据库的概念模型______。
单选题下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是( )。 Private Sub Command1 Click() Dim Num(25)As Integer,Chr1 As String Chr1=UCase(InputBox("请输入字母字符串")) For k=1 To Len(Chr1) n=Asc(Mid(Chr1,k,1))-Asc("A") If n＞=0 Then Num(n)=Num(n)+1 End If Next k m=Num(0) Fork=1 To 25 If m＜Num(k)Then m=Num(k) End If Next k Print m End Sub
单选题某人创建了一个工程，其界面如图所示，其中，图像的名称为Image1，动滚条的名称为HScroll1。希望在程序运行时，移动滚动框可以使图像框的宽度随之变化，而图像完整地拉宽或压缩，为此，编写了下面的程序代码：PrivateSubForm_Load()HScroll1.Max=Image1.Width*2HScroll1.Value=Image1.WidthImage1.Stretch=FalseEndSubPrivateSubHScroll1_Change()Image1.Width=HScroll1.ValueEndSub调试时发现不能达到目的，需要做的修改是______。
单选题下面正确使用动态数组的是( )。
单选题为了使标签具"透明"的显示效果，需要设置的属性是______。 A) AutoSize B) Caption C) Alignment D) BackStyle
单选题下列数组定义中错误的是( )。
单选题在窗体上画—个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click() X=5:Y=3 Call proc(X,Y) Label1.Caption=X Label2.Caption=Y End Sub Private Sub proc(a As Integer,ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是______。
单选题以下用户自定义函数 Function Func(a As Integer，b As Integer) As Integer Static m As Integer，i As Integer m=0:i=2 i=i+m+i m=i+a+b Func=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim k As Integer，m As Integer，p As Integer k=4:m=1 P=Func(k,m) Print p End Sub 程序运行后，单击命令按钮，输出结果为
单选题在窗体上有两个命令按钮Command1和Commnd2，三个文本框Text1，Text2和Text3，有如下事件过程： Private Sub Comuand1_Click() Text3.Text= Text1.Text+Text2.Text End Sub Private Sub Command2_Click() Text3.Text= Text3.Text+Str(Val(Text1.Text)+Val (Text2.Text)) End Sub程序运行后，在Text1和Text2中分别输入123、456，然后依次单击Command1和Command2，则在Text3中显示的内容依次是______ 。
单选题执行以下Commaand1的Click事件过程在窗体上显示( )。 Option Base 0 Prinvate Sub Command1_Clcik() Dim a a=Array("a","b","C","d","e","f","g") Print a(1);a(3);a(5) End Sub
单选题以下描述中，不是线性表顺序存储结构特征的是( )。
单选题在数据管理技术发展的三个阶段中，数据共享最好的是
单选题窗体上有一个名称为Command1的命令按钮，并有如下程序：
Private Sub 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
该程序的功能是______。
单选题下列程序的功能是调用字体对话框来设置文本框中的字体，单击Command1按钮弹出对话框，进行相应的字体、字号等设置，然后单击“确定”按钮退出对话框，则将发生哪些变化( ) Private Sub Command1_Click() CommonDialog1.CancelError=True CommonDialog1.Flags=3 On Error Resame Next ComrnonDiatog1.ShowFont Text1.Font.Name=CommonDialog1.FontName Text1.Font.Size=CommonDialog1.FontSize Text1.Font.Bold=CommonDialog1.FontBold Text1.Font.Italic=CommonDialog1.Fontltalic Text1.Font.Underline=CommonDialog1.FontUnderline Text1.FontStrikethru=CommonDialog1.FontStrikethru Text1.ForeColor;CommonDialog1.Color End Sub A．Text1的字体不发生变化 B．Text1的字体发生变化 C．Text1的字体和颜色发生变化 D．程序出错
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
d=0:c=10:x=Array(10, 12, 21, 32, 24)
For i=1 To 5
If x(i)＞c Then
d=d+x(i):c=x(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为
单选题命令按钮Commandl的单击事件过程如下： Private Sub Commandl_Click() Dim a(10，10)As Integer X=0 For i=1 T0 3 Forj=1 To 3 a(i，j)=i*2 Mod j Ifx
单选题假定有以下函数过程： Function Fun(S As String)As
String Dim sl As String Fori=1 To
Len(S) sl=LCase(Mid(S,i,1))+s1 Nexti
Fun=s1 End Function
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click()
Dim Str1 As String,Str2 As String
Str1=InputBox("请输入一个字符串") Str2=Fun(Str1) Print
Str2 End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为______。
A.ABCDEFG
B.abcdefg
C.GFEDCBA
D.gfedcba
单选题若要把窗体上命令按钮Command1的状态设置为不可用，应该执行的命令是( )。 A) Command1. Enabled = False B) Command1. Visible = False C) Command1. Cancel = False D) Command1. Default = False