Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim i As Integer, n As Integer
Dim c1 As String, s1 As String
Dim c2 As String, s2 As String
Dim c3 As String, s3 As String
List1.Clear
s1 = "甲乙丙丁戊己庚辛壬癸"
s2 = "子丑寅卯辰巳午未申酉戌亥"
s3 = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
n = Val(Text1.Text)
For i = n To
a = (i + 6) Mod 10
b = (i + 8) Mod 12
c1 = Mid(s1, a + 1, 1)
c2 = Mid(s2, b + 1, 1)
c3 = Mid(s3, b + 1, 1)
List1.AddItem + "年" + c1 + c2 + " " + c3
Next i
End Sub
Dim i as Integer, max as Integer Dim a(1 to 10) as Integer
‘代码略,随机产生 10 个不重复的数存于数组 a 的 10 个元素 a(1)~a(10)中max=a(1)
For i=2 to 10
If a(i)>a(max) then max=i Next i
变量 max 用于存储( )
Private Sub Command1_ Click ( )
Dim a(10) As Integer
For 1 = 1 To 10
a(1) = 0
Next i
For i = 1 To 10
a(i Mod 3) = a(i Mod 3)+i
Next i
Text1. Text = Str(a(1))
End sub
具体如下表:
小李根据上述描述,设计了一个统计所有学生信息各题得分率的算法。程序运行后,首先在列表框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
①,②,③
以下VB程序在a数组中保存了下一个要报数的人的编号,即若。(w)=p,则表示当第w个人报过数2后,下一个要报数的是第p号。程序在列表框Listl中输出了依次出圈的人的编号,在标签Label1中输出了最后剩下的人的编号。请完善程序。
Private Sub Command1_Click( )
Dim i As Integer, n As Integer, w As Integer, num As Integer
Dim a(1 To 100)As Integer, t As Integer
n=Val(Text1.Text)
For i=1 To n-1
a(i)=i+1
Next i
a(n)=1
w=n ‘变量w表示当前检查的是第w号数组元素,即从第n号开始检查
t=0 ‘变量t用以模拟报数
Do While ①
num=a(w) ‘当前报数的人的编号
t=t+1
If t=3 Then
List1.AddItem Str(num)
a(w)= ②
t=0
Else
③
End If
Loop
Label1.Caption=Str(w)
End Sub
以上程序段运行时,为了实现上述功能,画线处应填入的代码分别为:①;②;③。
请用Python语言回答下列问题:
Private Sub Command1_Click()
Dim r As Single, s As Single '①
r="10米" '②
s=3.14159*r*r '③
Text2.Text ="某个半径为"+ Str(r)+"米的圆,其面积为"+ Str(s)+"平方米." '④
End Sub
则程序中出错的语句是( )
Const n=11
Dim a(1 To n) As Integer,y(1 To n) As Integer, i As Integer, j As Integer
k=Val (Text1.Text)
For i=1To n
y(i)=1
Next i
For i=1 To n
For j=1 To n
If a(i) < a(j) Then y(i)=y(i)+1
Next j
If y(i)=k Then Text2.Text=Text2.Text+Str(a(i))
Next i
数组a的各元素的值为“3,4,3,1,4,4,5,5,6,2,0”,在文本框Text1中输入4,执行该段程序后文本框Text2中显示的值为( )
list=['a','b','c','d','e','f','g']
list1=[]
list2=[]
for i in range(7):
if i%2==0:
list1.append(list[i])
else:
list2.append(list[i])
print(list1)
print(list1)
a(1) = 10
For i = 2 To 10
a(i) = 0
If i Mod 2 = 1 Then
a(i) = a(i \ 2) + a(i - 1)
Else
a(i) = a(i) + 1
End If
Next i
该程序段执行后,数组元素a(7)的值是( )
import math
h = 500
g = 9.8
t = math.sqrt(2*h/g)
hx = g*(t-1)*(-1)/2
hh = h-hx
print(“小球最后1秒下落的位移是:”, hh, "m")