单选题在窗体模块的声明部分声明变量时，不能使用的关键字是
单选题满足下列条件之一的年份是闰年：1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份，下面判断闰年的正确表达式是
单选题有如下函数过程： Function lj(x As Integer)As Long Dims As Long Dimi As Integer s=0 Fori=1 To x s=s+i Nexti lj=s End Funcfion 在窗体上添加一个命令按钮，名为Commandl，编写事件过程调用该函数，输出结果为 ( )。 Private Sub Commandl_lick() Dimi As Integer Dim sum As Long Fori=1 To 5 sum=sum+lj(i) Nexti Print sum End Sub
单选题窗体上有一个名为List1的列表框和一个名为Command1的命令按钮，并有下面的事件过程：
Private Sub Command1_Click()
n%=List1.ListIndex
If n＞0 Then
ch$=List1.List(n)
List1.List(n)=List1.List(n-1):List1.List(n-1)=ch
End If
End Sub
程序运行时，选中1个列表项，然后单击Command1按钮，则产生的结果是
单选题在窗体中添加一个标签LblResult和一个命令按钮Command1，然后编写程序。程序的功能是单击命令按钮，计算1+2+3+4+5的值，并把结果转化为字符串显示在标签内，能够实现上述功能的程序段是， ( )
单选题数据库设计中反映用户对数据要求的模式是( )。
单选题有下面程序代码：
Private Sub Command1_Click()
Dim a As String
a="COMPUTER"
n=search(a, "T")
Print IIf(n=0, "未找到", n)
End SUb
Private Function search(str As String, ch As String)As Integer
For k=1 To Len(str)
c=Mid(str, k, 1)
If c=ch Then
search=k
Exit Function
End If
Next k
search=0
End Function
程序运行后，单击命令按钮Command1，输出结果是______。
单选题在Visual Basic中，不能关闭的窗口是
单选题已知通用对话框名为Cd1g，则执行下列的( )语句，将弹出“字体”对话框。
单选题下列关于复选框的说法，正确的是( )。
单选题关系表中的每一行记录称为一个( )。
单选题已知代数式eXSin(30°)2x/(x+y)Lnx，则正确的Visual Basic表达式为{{U}} {{/U}}。
A.E^*Sin(30*3.14/180)*2*X/X+Y*Log(X)
B.Exp(X)*Sin(30)*2*X/(X+Y)*Ln(X)
C.Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*Log(x)
D.Exp(X)*Sin(30*3.14/180)*2*X/(X+Y)*Ln(x)
单选题计时器控件触发的事件过程只能是
单选题在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub
Command1_Click() Dim i As Integer，j As Integer
Dim a(10， 10)As Integer For i=1 To
3 For i=1 To 3
a(i，j)=(i-1) *3+j Print
a(i，j)； Next i
Print Next i End Sub
程序运行后，单击命令按钮，窗体上显示的是
A. 1 2 3 246 3 69
B. 2 3 4 3 4 5 4 5 6
C. 1 4 7 2 5 8 3 6 9
D. 1 2 3 4 5 6 7 8 9
单选题下面过程定义语句可以使过程调用后不影响主调过程中的实际参数的是______ 。
A.Sub Com (By Val a，By Val b)
B.Sub Com (a，By Val b)
C.Sub Com (a，b)
D.Sub Com (By Val a，b)
单选题要使一个文本框可以显示多行文本，应设置为True的属性是
单选题保存一个工程至少应保存两个文件，这两个文件分别是( )。 A) 文本文件和工程文件 B) 窗体文件和工程文件 C) 窗体文件和标准模块文件 D) 类模块文件和工程文件
单选题为计算an的值，某人编写了函数power如下： Private Function power(a As
Integer,n As Integer)As Long Dim p As Long
p=a For k=1 Ton
p=p*a Next k
power=p End Function
在调试时发现是错误的，例如Print power(5,4)的输出应该是625，但实际输出是3125。程序需
要修改。下面的修改方案中有3个是正确的，错误的—个是______。
单选题假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1 = UCase(Mid(S， i， 1)) +s1 Next i Fun =s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String， Str2 As String Strl = InputBox(“请输入一个字符串”) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定” 按钮后在窗体上的输出结果为，
单选题将窗体的KeyPreview属性设为True，然后编写如下程序： Private Sub Form—KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form—KeyPress(KeyAscii．As Integer) Print Chr(KeyAscii) End Sub运行程序时，按下字母键a，则窗体上显示的是( )。