常见数据类型、数组 知识点题库
Dim names(5) As String
A=1：b=1：n=12
f(1)=a：f(2)=b
For i=3 to n
c=a+b
f(i)=c Mod 4
a=b
b=c
Next i
执行该段程序后，数组元素f(12)的值为（ ）
Private Sub Command1_Click()
Dim a(1 To 10) As Integer, b(1 To 10) As Integer
Dim n As Integer, i As Integer
n = 3
For i = 1 To 5
a(i) = i
b(n) = 2 * n + i
Next i
Text1.Text = Str(a(n))
Text2.Text = Str(b(n))
End Sub
程序运行后，单击命令按钮，在文本框Text1和Text2上显示的结果分别是（ ）
a(I)=68: a(2)=88: a(3)=76: a(4)= 60: a(5)=98: a(6)=100: a(7)= 64: a(8)=85: a(9)=99: a(10)=59
For i=1 To 9
b(i)=Abs(a(i+1)-a(i))
c(b(i)\10)= c(b(i)\10) + 1
Next i
For i=0 To 10
If c(i)> 0 Then Label1.Caption = Label1.Caption + "" + Str(c(i))
Next i
数组c各元素初值为0，执行该程序段，标签Label 1上显示的内容是（ ）
|
d[1] |
d[2] |
d[3] |
d[4] |
d[5] |
d[6] |
|
2 |
4 |
6 |
8 |
10 |
12 |
先打顺子牌（顺子指连续的5个及以牌型，如45678，顺子最大到A），若有多个顺子，先长后短长度和同按先小后大的顺序打出然后按4张、3张、2张、1张的顺序出牌，同一个牌型从小到大。
小刘依据上述算法设计了VB程序，其中牌型“10”用数字“0”代替表示，如图所示，请回答下列问题。
-
（1） 若初始牌型为344445566790JQKA2，第2次出的牌为。
-
（2） 请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim a (1 To 13) As Integer, max As Integer, t As Integer, last As Integer
Dim sa As String, stem As String, flag As Boolean
Const s="34567890JQKA2" '用0代替牌10
'发牌和洗牌代码略，在标签Label1显示初始牌型，洗牌后数组a各元素分别存储牌型3～2的数量
t=17 '刚开始牌有17张
Do While t>0 '打牌
flag=True
Do While flag '寻找牌中有没有顺子牌
max =0: k =1: flag=False
For i=1 To 13
If ① Then
k=k+1
If k > Max Then
Max = k
Last = i+1 '记录连续牌的最后一张
End If
Else
k=1
End If
Next i
If Max >= 5 Then '有顺子牌,把最长的这把顺子打出来
flag=True: sa= ""
For j = ② To last
Stem=Mid(s, j, 1)
sa=sa +stem+ ""
a(j)=a(j)-1
Next j
List1.AddItem sa '顺子在列表框显示
t=t-max
End If
Loop
For i= 1 To 13 '出4个一样的牌
If a(i)=4 Then
stem=Mid(s, j, 1)
List1.AddItem stem+stem+stem+stem
a(i)=0
③
End If
Next i
'3张、2张、单张出牌,具体代码略
Loop
End Sub
① ② ③
-
（1） 本程序中使用了2个变量，变量名称分别是、，变量的数据类型分别是、。
-
（2） 本程序的基本结构是，使用了语句来实现这个结构。
-
（3） 本程序中使用了2个关系式，分别是：、。
-
（4） 本程序文件名称为，保存位置为。
执行完该流程，数组a各元素的值可能为（ ）
●若双方已经分出胜负，则显示胜方及连成五子的第一颗棋子的位置(行号及列号)。
●若双方未分出胜负，则显示当前状态下将下棋的一方。
-
（1） 若棋盘上的黑白棋子数量不相等时，则将下子的一方是
-
（2） 编写如下VB程序，请在划线处填入合适的代码。
Constn= 10
Dim s(1 To 400) As String
Private Sub Command1_ Click)
‘读取棋盘数据存储在数组s中，●表示黑子，o表示白子，o表示空位，代码略
End Sub
Private Sub Command2_ Click()
Dim i As Integer, j As Integer, fag As Boolean
flag= False：i= 1
Do While i <= n And flag = False
For j= 1 Ton
If Then flag = True： Exit For
Next j
i=i+ 1
Loop
i=i- 1
If flag Then
If (i-1)*n+j) = "o" Then
Label1.Caption = "白方胜" + Str(i) + Str(j)
Else
Label1.Caption = "黑方胜" + St(i) + Str(j)
End If
Else
If counts() Then Label1.Caption="黑方下" Else Label1.Caption ="白方下"
End If
End Sub
Function judge(x As Integer, y As Integer) As Boolean
Dim dx(1 To 4) As Integer, dy(1 To 4) As Integer
Dim flag As Boolean,j As Integer, i As Integer, ux As Integer, uy As Integer
dx(1)= 1： dx(2)= 1： dx(3)= 1：dx(4)= 0
dy(1)= 1： dy(2)= 0： dy(3)=-1： dy(4)= I
flag = False：i= 1
If s((x-1)*n+y) <> "o" Then
Do While i<= 4 And flag = False
flag = True
For j= 1 To 4
ux= dx(i)*j+x
uy=dy(i)*j+y
If Not (ux>= 1 And ux <= nAnd uy>= I And uy <= n) Then flag = False: Exit For
If Then flag = False： Exit For
Next j
i=i+ 1
Loop
End If
judge = flag
End Function
Function counts() As Boolean
Dim iAs Integer, j As Integer, white As Integer, black As Integer
counts = False：white = 0： black= 0
For i=1 To n
For j= 1 Ton
If(i-1)* n+j)= "o" Then white = white+ 1
If((i-1)*n+j)= "●" Then black = black + 1
Next j
Next i
If Then counts = True
End Function
>>>a=[1,2,3]
>>>a.append(5)
>>>print(a)
m=['书法','绘画','体育']
m.append('歌唱')
m.append('舞蹈')
print(m[4])
