(Wave格式音频存储容量=采样频率(Hz)×量化位数(bit)×声道数×时间(s)(单位:位))
算法分析:从A点到B点共有7个路口,即可以有一个7位二进制数表示所走路线。观察以上路线,枚举所有满足路线特征的7位二进制数,再去掉不满足的二进制数即可。
Private Sub Command1_Click()
Dim b As String, t As Integer, i As Integer, c As Integer, d As Integer
t = 0 '可走路线计数
For i = 15 To 120 '所有可走路线用十进制枚举
d = i
c = 0
b = ""
Do While d <> 0
If d Mod 2 = 1 Then
b = "1" + b
c = c + 1
If c > 4 Then Exit Do '若"1"的总数超过 4 个表示路线错误,需退出 Do 循环
Else
①
End If
②
Loop
If c = 4 And Len(b) = 7 Then
t = t + 1
List1.AddItem b
End If
Next i
Label1.Caption = Str(t) + " 条"
End Sub
① ②
请回答下列问题:
在录入数据时,下列操作符合要求的是( )
采用以下方法可以建构一个贝尔三角矩阵(见图):
A.第一行第一项是1。
B.对于n>1,第n行第一项等同第n-1行最后一项。
C.对于m,n>1,第n行第m项等于它左边和左上方的两个数之和。
小明编写了一个生成贝尔在角矩阵的程序,其功能如下:
程序运行时在文本框Text1中输入整数n(1≤n≤9),单击按钮Command1后,在列表框List1上输出n阶的贝尔三角矩阵。
Private Sub Command1_Click()
Dim n As Integer, s As String, i As Integer, j As Integer
Dim bell(1 To 100) As Integer
bell(1) = 1
List1.AddItem gs(bell(1))
For i = 2 To n
For j = i To 2 Step -1
bell(j) = bell(j - 1)
Next j
bell(1) = bell(i)
For j = 2 To i
Next j
s = gs(bell(1))
For j = 2 To i
s = s + gs(bell(j))
Next j
List1.AddItem s
Next i
End Sub
Function gs(x As Integer) As String '将x转换为字符串,若不足5位,则用空格补足
Dim i As Integer
For i = 1 To 5 - Len(Str(x))
gs = gs + " "
Next i
End Function
Dim x As String,y As String
Dim ans As Integer
x="5":y="20":ans=0
If x>y Then ans=Val(x) Else ans=Val(y)
ans=ans +Val(x+y)
Text1.Text=Str(ans)
执行该程序段后,文本框Text1中显示的内容是
Const n=640 '参加统测总学生数
Const nc =16 '班级数
Dim class(1 To n) As Integer, sname(1 To n)As String, score(1 To n) As Integer
Dim b( To nc) As Integer '存储每个班级的参加统测人数
Dim c(1 To nc) As Integer
Dim d(1 To n)As Integer
Private Sub Form_Load()
'本过程读取每个参加统测学生的班级序号、姓名和统测成绩分别存储在数组class,sname和 score中并在List1中显示,代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
For i = 1 To nc
b(i) = 0
Next i
For i = 1 To n '统计每个班级统测人数
Next i
k = 1
For i = 1 To nc
c(i) = k
k = k + b(i)
Next i
For i = 1 To n
k = class (i)
c(k) = c(k) + 1
Next i
For i = 1 To nc '对各班级按统测成绩进行排序
Call px(),c(i)-1))
Next i
For i = 1 To n
List2.AddItem " " & class(d(i)) & " "& sname (d(i)) & " " & score(d(i))
Next i
End Sub
Private Sub px(head As Integer, tail As Integer)
Dim i As Integer, j As Integer, t As Integer
For i = head To tail - 1
For j = tail To i + 1 Step -1
If Then
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Next j
Next i
End Sub