设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，-最需题库

试卷相关题目

1下面程序的执行结果是（）。Private Sub Command1_Click()a = 10For k = 1 To 5 Step -1a = a - kNext kPrint a; kEnd Sub
A.-5 6
B.-5 -5
C.10 0
D.10 l
开始考试点击查看答案
2假定用下面的语句打开文件：Open "Filel.Txt" For Input As #l则不能正确读文件的语句是（）。
A.Input #1, ch$
B.Line Input #1, ch$
C.ch$ = Input$(5, #1)
D.read #1,ch$
开始考试点击查看答案
3设有以下函数过程Private Function Fun(a() As Integer,b As String)As Integer…End Function若已有变量声明：Dim x(5)As Integer，n As Integer，ch As String则下面正确的过程调用语句是（）。
A.x(0) = Fun(x, "ch")
B.n = Fun(n, ch)
C.Call Fun x,"ch"
D.n = Fun(x(5), ch)
开始考试点击查看答案
4设有如下程序段：Dim a(10)…For Each x ln aPrint x;Next x在上面的程序段中，变量x必须是（）。
A.整型变量
B.变体型变量
C.动态数组
D.静态数组
开始考试点击查看答案
5默认情况下，下面声明的数组的元素个数是（）。Dim a(5, -2 To 2)
A.20
B.24
C.25
D.30
开始考试点击查看答案
6设有如下程序Private Sub Command1_Click()x = 10: y = 0For i = 1 To 5Dox = x - 2y = y + 2Loop Until y > 5 Or x < -1NextEnd Sub运行程序，其中Do循环执行的次数是（）。
A.15
B.10
C.7
D.3
开始考试点击查看答案
7阅读程序：Private Sub Command1_Click()Dim arrDim i As Integerarr = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)For i = 0 To 2Print arr(7 - i);NextEnd Sub程序运行后，窗体上显示的是（）。
A.8 7 6
B.7 6 5
C.6 5 4
D.5 4 3
开始考试点击查看答案
8在窗体上画一个名为Command1的命令按钮，然后编写以下程序：Private Sub Command1_Click()Dim a(10) As IntegerFor k = 10 To 1 Step -1a(k) = 20 - 2 * kNext kk = k + 7Print a(k - a(k))End Sub运行程序，单击命令按钮，输出结果是（）。
A.18
B.12
C.8
D.6
开始考试点击查看答案
9窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Command1_Click()Dim a(10), x%For k = 1 To 10a(k) = Int(Rnd * 90 + 10)x = x + a(k) Mod 2Next kPrint xEnd Sub程序运行后，单击命令按钮，输出结果是（）。
A.10个数中奇数的个数
B.10个数中偶数的个数
C.10个数中奇数的累加和
D.10个数中偶数的累加和
开始考试点击查看答案
10窗体上有一个名为Commandl的命令按钮和一个名为Timerl的计时器，并有下面的事件过程：Private Sub Command1_Click()Timerl.Enabled=TrueEndSubPrivate Sub Form_Load()Timerl.Interval=10Timerl.Enabled=FalseEnd SubPrivate Sub Timerl_Timer()Commandl.Left=Commandl.Left+10End Sub程序运行时，单击命令按钮，则产生的结果是（）。
A.命令按钮每10秒向左移动一次
B.命令按钮每10秒向右移动一次
C.命令按钮每10毫秒向左移动一次
D.命令按钮每10毫秒向右移动一次
开始考试点击查看答案