单选题下列程序段的执行结果为______。 x=6 For k=1 To 10 Step-2 x=x+k Next k Print k：x
单选题在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为
Drive1、Dir1和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_Change事件过程中应使用的语句是：_______。
A. Dirve1．Drive=Dir1.Path
B. Dir1.Path=Drive1.Drive
C. Dir1.Path=File1.Path
D. File1.Path=Dir1.Path
单选题以下不是Visual Basic合法常量的是( )。
单选题使用目录列表框的 ______ 属性可以返回或设置当前工作目录的完整路径(包括驱动器盘符。
单选题假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是______。
单选题设置复选框或单选按钮的标题对齐方式的属性是( )。 A) Aligh B) Style C) Alignment D) Sorted
单选题在Visual Basic中，表达式3*2/5 Mod3的值是______
A.1
B.0
C.3
D.出现错误提示
单选题设有语句：
Temp=MsgBox("继续执行吗",vbYesNo,"退出提示框")
程序运行时，在对话框的标题栏将显示
____
。
单选题表达式66/8 Mod 5&"avg"的值是
单选题以下变量名中合法的是
单选题有如下程序： Private Sub Form_Click() Dimi As Integer,sumASInteger sum=0 For i=2To 10 If i Mod2＜＞0 And i Mod 3=0 Then sum=sum+i End If Nexti Print sum EndSub 程序运行后，单击窗体，输出结果为( )。
单选题设有如下三个关系表：
R
A
B
C
1
1
2
2
2
3
S
A
B
C
3
1
3
T
A
B
C
1
1
2
2
2
3
3
1
3
下列操作中正确的是______。
单选题在属性窗121中把窗体的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 在一般情况下(即不按住Shift键和锁定大写)，运行程序，如果按“A”键，则程序输出的是( )。
单选题如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如9632是降序数，而8516则不是降序数)，现编写如下程序，判断输入的正整数是否为降序数。
Private Sub Command1_Click()
Dim n As Long
Dim flag As Boolean
n=InputBox("输入一个正整数")
s=Trim(Str(n))
For i=2 To Len(s)
If Mid(s,i-1,1)＜Mid(s,i,1)
Then Exit For
Next
If i=Len(s) Then flag=True Else
flag=False
If flag Then
Print n; "是降序数"
Else
Print n; "不是降序数"
End If
End Sub
运行以上程序，发现有错误，需要剥给flag变量赋值的If语句进行修改。以下正确的修改是______。
单选题数据流图中带有箭头的线段表示的是( )。
单选题计算z的值，当x大于等于y时，z=x；否则z=y。下列语句错误的是( )。
单选题如果要定义一个窗体级变量，定义变量语句的位置应该是
单选题在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( ) Dim m As Integer，n As Integer，p As Integer m=3：n=5：p=O Call Y(m，n，p) Print Str(p)End SubSub Y(ByVal i As Integer，ByVal j As Integer，k As Integer) k=i + jEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是
单选题下面程序运行时，若输入“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)
For k=1 To 25
If m＜Num(k)Then
m=Num(k)
End If
Next k
Print m
End Sub
单选题在数据库管理系统提供的数据语言中，负责数据的查询及增、删、改等操作的是 A) 数据定义语言 B) 数据转换语言 C) 数据操纵语言 D) 数据控制语言