题目内容
（请给出正确答案）
[单选题]
⽤Dim A (1 to 15) As Integer语句定义的数组的元素个数是()。
A.14
B.15
C.16
D.17
查看答案
如果结果不匹配，请 联系老师 获取答案
题目内容
（请给出正确答案）
如果结果不匹配，请 联系老师 获取答案
题目内容
（请给出正确答案）
A.14
B.15
C.16
D.17
如果结果不匹配，请 联系老师 获取答案
更多“⽤Dim A (1 to 15) As Integer语句定…”相关的问题
下列程序段的执行的结果是 Dim a(10)，b(10) i=3 For j=1 To 5 a(j) =j b(i) =2 * i + j Next j Print b(i)；a(i)
A．11 3
B．3 15
C．3 11
D．15 3
下列程序段的执行结果为()。 Dim m(10),n(10) I=3 For I=1 to 5 M(t)=t N(I)=2*I+t Next t Print n(I);m(I)
A．3 11
B．3 15
C．11 3
D．15 3
下列程序运行时输出的结果是 Option Base 1
Private Sub Form_Click()
Dim x(10) As Integer，y(5) As Integer
For i=1 to 10
x(i) =10-i+1
Next
For i=1 to 5
y(i)=x(2*i-1)+x(2*i)
Next
For i=1 to 5
Print y(i)
Next
End Sub
A．3 7 11 45 19
B．19 15 11 7 3
C．1 3 5 7 9
D．不确定的值
下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请补充完整。
Private Sub Form_Click（）
Dim i As Integer
Open "Num.txt"For Output As #1
For i=1 To 8
【15】
Next i
Close #1
End Sub
（31 ）在窗体上画 1 个命令按钮，名称为 Command1 ，然后编写下列程序：
Dim Flag As Boolean
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox(" 请输入 :")
If Flag Then
Print f(intNum)
End If
End Sub
Function f(X As Integer)As Integer
If X＜10 Then
Y=X
Else
Y=X+10
End If
f=Y
End Function
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Flag=True
End Sub
运行程序 ， 首先单击窗体 ， 然后单击命令按钮 ， 在输入对话框中输入 5 ， 则程序的输出结果为 （） 。
A ） 0
B ） 5
C ） 15
D ）无任何输出
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form_Click（）
Dim Y As Single
Open 【14】
Y=3.14159 / 180
For I=1 To 90
Ksc.K=I
Ksc.Sinx=Sin（I * Y）
Ksc.Cosx=Cos（I * Y）
【15】
Next I
Close #2
End Sub
在窗体上有一个命令按钮，然后编如下事件过程：
Function SR（x As Double） As Double
Select Case Sgn（x）
Case 1
SR=Sqr（x）
Exit Function
Case 0
SR=0
Case -1
SR=-1
End Select
End Function
Private Sub Command1_Click（）
Dim Msg, SRN
Dim N As Double
N=InputBox（"请输入要计算平方根的数"）
Msg=N & "的平方根"
Select Case SR（N）
Case 0
Msg=Msg & "是0"
Case -1
Msg=Msg & "是一个虚数"
Case Else
Msg=Msg & "是" & SR（N）
End Select
MsgBox Msg
End Sub
程序运行后，单击命令按钮，在输入对话框内输入-1，输出结果是 【15】 。
单击按钮时，以下程序运行后的输出结果是 Private Sub Commandl_Click() Dim X As Integer，y As Integer，z As Integer x=1：y=2： Z=3 Call God(x，x，z) Print x；x；z Call God(x，y，y) Print X；y；y End Sub Private Sub God(x As Integer，y As Integer，z As Integer) x=3 * Z + 1 y=2 * Z z=x + y End Sub
A．6 6 12 7 11 11
B．8 5 10 5 11 11
C．9 6 12 9 10 15
D．8 10 10 5 9 10
试题六（共 15 分）
阅读以下应用说明以及 Visual Basic 程序代码，将应填入 （n） 处的字句写在答题纸的对应栏内。
[应用说明]
某电视台拟开发应用程序来显示戏曲大赛中1～4号四位选手决赛的现场投票情况。该程序从现场观众中（不超过 2000 人）每 0.5 秒收集一次对这四位选手的支持票数，并在屏幕上动态显示这四位选手的票柱（以高度反映票数）与累计得票数，如图 6-1 所示。投票过程限时 30 秒，每名观众最多为 1 名选手投票。投票结束后系统通过比较各位选手的累计得票数，显示决赛结果： “*号胜出” （如有单个冠军）或“继续进行 PK”（如有多人获得相同的最高票数） 。
该程序中设置公共变量 T 动态记录投票时间。四个形状 ShpM（1 to 4）动态增长的
底线固定。
[Visual Basic 程序代码]
Dim T As Integer '声明全局变量
Private Sub Form_Load()
For i = 1 To 4
ShpM(i).Top = 2000 : ShpM(i).Height = 0 ' 初始票柱高度为0
TxtM(i).Text = 0
Next i
Tim1.Enabled = False : Tim1.Interval = 500 : T = 0
End Sub
Private Sub CmdStart_Click()
Tim1.Enabled = True '开始投票
CmdStart.Enabled = False
End Sub
Private Sub Tim1_Timer()
Dim n(1 To 4) As Integer ' n(1 to 4)为每次收集的票数
Dim i As Integer, j As Integer
Dim G As Integer ' G 用于计算最高票数
Dim ng As Integer ' ng 用于计算冠军个数
For i = 1 To 4
n(i) = … ' 收集 i 号选手的票数，此处省略
TxtM(i).Text = TxtM(i).Text + n(i) ' 累计票（VB 能进行自动转换）
ShpM(i).Top = ShpM(i).Top - n(i)
ShpM(i).Height = ShpM(i).Height + （1） ' 算出票柱高度
Next i
T = T + 1 ' 计时
If T = 60 Then ' 投票时间到
（2） ' 停止数据收集处理
ng = 1
G = TxtM(1).Text
For i = 2 To 4
If G ＜ TxtM(i).Text Then
G = TxtM(i).Text
ng = （3）
j = i
Else
If G = TxtM(i).Text Then ng = （4） ' 计算冠军个数
End If
Next i
If ng = 1 Then
txtResult.Text = （5） ' 单个冠军结果
Else
txtResult.Text = "继续进行PK"
End If
End If
End Sub
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Dim k As Integer
Private Sub Form_Load()
k=15
End Sub
Private Sub Command1_Click()
Dim b As Integer
b=b+k
k=k+1
Print k,b
End Sub
程序运行时，两次单击命令按钮Command1后，在窗体上输出的第二行是()。
A．17 31
B．15 31
下列各语句中,正确的是
A) Dim x As Variant=Array(1, 2,3, 4. 5)
B)Dim xo As Integer: x=Array (1, 2:3: 4.5)
C)Dim x As ariant: x=Array(1: abc: 2,3. 41)
D) Dim x As Integer: x=Arra (1, 2, 3+25)
