常量、变量及变量的赋值 知识点题库
-
（1） 设计应用程序界面时，为添加a所指向的对象，应使用图2所示的“控件工具箱”中的 （填写相应编号）。
-
（2） 请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, c As Integer,n As Long
c = 0
n = 110800 + i
If Then
List1.AddItem Str(n) + " " + "5"
End If
Next i
Label2.Caption = "满足条件的数有：" + Str(c) + "组"
End Sub
Private Sub Command1_Click()
Dim x As Integer, m As Integer
m = 3
For x = 1 To 5
If m > 3 Then m = m + 2 Else m = m - 1
Next x
Text1.Text = Str(m)
End Sub
实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim x As Single, y As Single, x1 As Single, y1 As Single
Dim d As Single, min As Single
Dim s As String, t As String
s = Text1.Text: x = 25: y = 35 'A点坐标
n = 0: min = -1: t = ""
For i = 1 To
If Mid(s, i, 1) = "," Then
n = n + 1
If Then
x1 = Val(t)
Else
y1 = Val(t)
d =
If min = -1 Then min = d
If d < min Then min = d
End If
t = ""
Else
t = t + Mid(s, i, 1)
End If
Next i
Label3.Caption = Str(min)
End Sub
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String，i As Integer，s1 As String，sum As Integer，t As Integer
Dim jy As Integer
s＝Text1.Text
t＝0：sum＝0
For i＝1 To Len(s)
s1＝Mid(s，i，1)
If s1>＝“0” And s1<＝“9” Then
′①
If t<10 Then
sum＝sum＋Val(s1)*(11－t)
ElseIf t＝10 Then
′②
End If
End If
Next i
sum＝11－sum Mod 11
If 
Then′③
Text2.Text＝“该校验码中数字不是10位数！”
Else
If jy＝“X” and sum＝10 Then
Text2.Text＝“校验通过”
ElseIf val(jy)＝sum then
Text2.Text＝“校验通过”
Else
Text2.Text＝“校验不通过”
End If
End If
End Sub
划线处代码为①
②
③
请回答以下问题。
-
（1） 十进制数37(选填：是/不是)A类数。
-
（2） 请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim s As Integer 's为A类数的个数
Dim t As Integer 't为二进制数中“1”的个数
Dim k As Integer 'k为二进制数中“0”的个数
s=0
For i=1 To 1000
n=i:t=0:k=0
Do While n > 0
If Then t=t+1 Else k=k+1
Loop
If t>k Then
List1.Additem str(i)
s=s+1
End If
Next i
Text1.Text=Str(s)
End Sub
-
（1） 十进制数37（选填：是/不是）A类数。
-
（2） 请在划线处填入合适的代码。
Private Sub Command1_Click( )
Dim i As Integer, n As Integer
Dim s As Integer ‘s为A类数的个数
Dim t As Integer ‘t为二进制数中 “1”的个数
Dim k As Integer ‘k为二进制数中 “0”的个数
s=0
For=1 To 1000
n=i:t=0:k=0
Do While n>0
If ① Then t = t+1
Else k = k+1②
Loop
If t > k Then
List1. Additem Str(i)
s=s+1
End If
Next i
Text1.Text=str(s)
End Sub
① ②
Dim conn As New ADODB Connection
Dim rs As New ADODB. Recordset
Dim n as Integer
Private Sub Form_Load ( )
conn. ConnectionString ="Provider= Microsoft. Ace. OLEDB. 12.0;
data source =" + App. Path + " \data \data. accdb" ‘ 此处内容在同一行中,因印刷排版限制而换行
conn. Open
sqI = “select * from student”
Set rs. ActiveConnection = conn
rs. Open sql
n=0
Do while Not rs. EOF
Call read ( )
n=n+1
rs. MoveNext
Loop
End sub
sub read ( )
List1.AddItem rs ("name")
End sub
运行上述程序，以下说法不正确的是（ ）
为此，小李编写了一个VB程序，功能如下:运行程序，窗体加载时随机产生6个［0，9］内的随机整数，并在列表框List1中依次显示排序前数据，单击“排序”按钮Command1，在列表框List2中显示经过上述排序算法后的数据。运行结果如图所示。
实现上述功能的VB程序如下，但加框处代码有错，请改正.
Dima (10) As Integer ‘数组a表示桶的编号,如a(0)表示第0号桶
Private Sub Command1_Click ( )
Dim i As Integer, j As Integer
For i = 0 To 10
For j = 1 To 
‘①
List2. AddItem CStr(i)
Next j
Next i
End Sub
Private Sub Form_Load ( )
Dim i As Integer
Randomize
For i = 0 To1 0 ‘将数组初始化为0
a(i) = 0
Next i
For i = 1 To 6 ‘产生6个[0,9]内的随机数
t = Int (Rnd*10)
a(t) = 
‘② 第t号桶中小旗子数量加1
List1. AddItem CStr(t)
Next i
End Sub
① ②
Dim s(1 To 100) As Integer
Dim b(1 To 100) As Integer
Dim c As Integer
a(1) = 0: a(2) = 2: b(1) = 1: b(2) = 2: c = 0
For i = 2 To 6
a(i + 1) = 2 *a(i) -a(i - 1)
b(i + 1) =b(i) ^ 2 /b(i - 1)
c =c +a(i + 1) +b(i + 1)
Next i
Label1.Caption = Str(c)
该程序运行后，Label1中显示的内容是（ ）
1）原始数据中，某数不为0且相邻无重复，压缩数据用该数据表示；
2）原始数据中，某数为0且相邻无重复，压缩数据用两个数表示，第1个为0，第2个为0；
3）原始数据中，某数据相邻有重复，压缩数据用3个数表示：第1个为0，第2个为重复数的个数，第3个为该数本身；根据上述压缩方法，对应的解压缩方法示例如图a所示。
图a
小明编写了一个解压缩VB程序，功能如下：窗体加载时，自动读取压缩数据，依次存储在数组元素a（1）、a（2）、a（3）……中，压缩数据的个数存储在变量n中，压缩数据显示在文本框Text1中。单击“解压缩”按钮Command1，程序对压缩数据依次进行解压缩处理，解压缩数据显示在文本框Text2中。程序运行界面如图b所示。
图b
-
（1） 如果压缩数据为“23，0，21，66，0，0，77，0，5，0”，则解压缩数据的个数是。
-
（2） 实现上述功能的VB程序如下。请在划线处填入合适代码。
Dim a（1 To 100）As Integer '存储压缩数据，最大处理个数为100
Dim b（1 To 1000）As Integer '存储解压缩数据，最大处理个数为1000
Dim n As Integer '存储压缩数据的个数
Private Sub Form_Load（）
'压缩数据由上述压缩方法生成
'本过程用于读取压缩数据并存储在数组a中，压缩数据个数存储在变量n中
'代码略
End Sub
Private Sub Commandl_Click（）
Dim pa As Integer '存储压缩数组当前处理位置
Dim pb As Integer '存储解压缩数组当前处理位置
Dim firstdata As Integer，count As Integer，iAs Integer
pa=1：pb=1
Do While pa<=n
firstdata=a（pa）
If firstdata <>0 Then '示例1）情况处理
b（pb）=firstdata
pa=pa+1：pb=pb+1
Else
count=a（pa+1）
If count=0 Then '示例2）情况处理
b（pb）=0
pa= ①_ _：pb=pb+1
Else '示例3）情况处理
For i=1 To count
②
Next i
pa=pa+3：pb=pb+count
End If
End If
Loop
Text2.Text=Str（b（1））
For i=2 To ③
Text2.Text=Text2.Text+“，”+Str（b（i））
Next i
End Sub
①②③
Dim a（1 To 5）As Integer
Randomize
s=0
DoWhile 
t=Int（Rnd * 5+1）
a（t）= a（t）+1
If a（t）= 1 Then s=s+a（t）
Loop
已知数组 a（1）到a（5）的初值均为0,该段程序运行后，下列说法正确的是（ ）
s=Text 1. Text
⑴
ans=0
For i=1 To Len（s）
t=Mid（s，i，1）
If t>=“a” And t<=“z” Then
c=c+1
⑵
Else
⑶
End If
Next i
Text2.Text=Str（ans）
填空处的代码可由以下部分组成：
①c=0 ②c=1 ③If c>ans Then ans=c ④If c<ans Then c=ans ⑤ans=ans+1
正确的代码顺序是（ ）
s=0
For i= 1 To 5
k=0
For j=i+ 1 To 6
If a(i) >a(j) Then k=k+1
Next j
s=s+k
Next i
数组元素a(1)到a(6)的值依次为“5，4，2，6，3，1”，执行该程序段后，变量s的值为（ ）
Dim a(10), b(10)As Integer
n=3
For i=1 To 5
a(i)=i
b(n)=2*n+i
Next i
Print a(n); b(n)
a=5
if a>=1 and a<=10
then
a=a*a
else
a=a+a
Print a
n = Val(Text1.Text)
f1 = 1: f2 = 1
For k = 3 To n
f = f1 + f2
①
②
Next k
Label2.Caption = "斐波那契数列第" + Str(n) + "项的值为" + Str(f)
代码中①②两处分别应为（ ）
