Private Sub Command1_Click()
Dim a(1 To 5) As Integer
a(5)=Val(Text1.text)
For i=4 To 1 Step -1
a(i)=a(i+1)\2
Next i
Label1.caption=str(a(1))
End sub
在文本框Text1中输入“100”,单击命令按钮Command1后,标签Label1中显示的内容是( )
Private Sub Command1_Click()
Dim a As String, n As Integer
a = Text1.Text
Do While n > 1 And Mid (a, n, 1) = “0”
Loop
For i = n To 1 Step -1
Text2.Text =
Next i
End Sub
Privat Sub Command1 Click
Dim array1(10,10) As Integer
Dim i AS integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i,j) = i + j
Next j
Next i
Text1.Text=array1(2, 3)+array1(3, 4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值( )
Const n=6
Dim a(1 To n)As Integer
Dim i As Integer,j As Integer,t As Integer
Do While True
For i=1 To n-1
If a(i)>a(i+1)Then Exit For
Next i
If i < n Then
For i=1 To n
j=Int(Rnd * 6)+1
t=a(j):a(j)=a(i):a(i)=t
Next i
Else
Exit Do
End If
Loop
数组中a(1)到a(6)的值依次为“56,34,48,87,65,96”,上述程序段执行后a(1)到a(6)的值依次为( )
具体如下表:
小李根据上述描述,设计了一个统计所有学生信息各题得分率的算法。程序运行后,首先在列表框List1中显示信息技术各小题得分,单击“计算”按钮“Command1”,在列表框List2中显示信息各题的题号和得分率,并在文本框Text1中输出所有学生的信息平均分(平均分=各题得分率*分值之和)。
算法的VB程序如下,回答下列问题。
Dim a(1 To 1000) As Integer, n As Integer
Private Sub Form_Load()
‘读入数据到数组a,数据个数n,代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim fz(1 To 16) As Integer 'fz数组存储信息各题满分值
Dim b(1 To 33) As Single '数组b存储全卷各题的平均得分
For i = 1 To 16 '数组fz存储信息16个小题的满分值
If i <= 12 Then fz(i) = 2
fz(13) = 4: fz(14) = 8: fz(15) = 7: fz(16) = 7
Next i
For i = 2 To n '把数组a数据分别统计到各题中,计算各题总得分
①
b(j) = a(i) + b(j)
Next i
For i = 1 To 33
If i <= 12 Then
b(i) = b(i) /(a(1) * fz(i)) '计算信息客观题各题的得分率
ElseIf i >= 26 And i <= 29 Then
b(i) = ②
End If
Next i
For i = 1 To 16
If i > 12 Then j = i + 13 Else j = i
b(j) = Int(b(j) * 1000 + 0.5) / 10 '对结果四舍五入保留1位小数
List2.AddItem Str(i) + Str(b(j)) + "%"
ave= ③
Next i
Text1.Text = Str(ave / 100)
End Sub
①,②,③
i = 1: s = ""
Do While i <= 3
k = i : j = i + 1
Do While j <= 8
If a(j) < a(k) Then k = j
j = j + 1
Loop
If i <> k Then
t = a(i): a(i) = a(k): a(k) = t
n = n + 1
End If
s = s + Str(a(i)) : i = i + 1
Loop
Label1.Caption = Str(n) + ":" + s
数组a(1)到a(8)依次为:16,19,8,20,4,12,6,15,程序运行后,标签中显示的值为( )
程序描述:计算两个浮点数a和b的相除的余数,a和b都是正数。这里余数(r)的定义是:a = k * b + r,其中 k是整数, 0 <= r < b。代码如下:
a= ① (input("请输入:"))
b= ① (input("请输入:"))
k= ②
r= ③
print(r)
小杜编写了实现上述功能的程序,程序功能如下:程序运行时,在文本框Text1中输入n(1<=n<=10),单击“产生”按钮Command1产生n×n个随机数,随机数的范围为[0,9],随机存储在数组a中,并以矩阵的形式在列表框List1上显示单击“排序”按钮Command2,对矩阵以“行”为单位进行升序排序,并在列表框List2输排序后的矩阵。在程序运行界面如下图所示,实现上述功能的VB程序如下,请在划线处填入合适的代码。
Dim n As Integer
Dim a(1 To 100) As Integer
‘随机生成数并存储在List1中,代码略
Private Sub Command1_Click() ‘按行排序
Dim i As Integer, j As Integer, t As Integer
Dim s As String
s=“”
For i=1 To
k=i
For j=i+1 To
If a(j)<a(k) Then k=j
Next j
If k<> i Then t = a(k): a(k)=a(i): a(i)=t
If I Mod n=0 Then List2.AddItem s: s=“”
Next i
End Sub
Private Sub Command2_Click() ‘按列排序
Dim i As Integer, j As Integer, t As Integer
Dim s As String
s= “”
For i=1 To i-1
k=i
For j= i+n To
If a(j)<a(k) Then k=j
Next j
If k<> i Then t=a(k): a(k)=a(i): a(i)=t
If I Mod n=0 Then List2.AddItem s: s= “”
Next i
End Sub
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
78 |
88 |
89 |
90 |
83 |
76 |
75 |
98 |
100 |
65 |
技术老师想统计出80分(含80)以上的人数,请完善程序,代码如下:
a=[78,88,89,90,83,76,75,98,100,65]
sum=0
for i in range(n):
if a[i]>=80:
print(sum)
执行上述程序段后,输出的内容是