Dim min As Single , d2 As Double , abc As String
则变量min的类型是() ,变量d2的类型是() ,变量abc的类型是()。
A.可变类型 B.单精度型 C.双精度型 D.字符串型
flag = True : i = 1
Do While i <= 6
x = Int(Rnd * 100) + 1
If flag Or x >50 Then
a(i)=x
flag = Not flag
i = i + 1
End if
Loop
执行该程序段后,在下列选项中,a(1)~a(6)各元素值不可能的是( )
请回答下列问题:
Private Sub()
Dim nian As Integer, yue As Integer, ri As Integer
Dim ans As Integer, i As Integer
Dim a(1 To 12) As Integer ‘a(i)存储第i个月的天数
a(1) = 31: a(2) = 28: a(3) = 31: a(4) = 30
a(5) = 31: a(6) = 30: a(7) = 31: a(8) = 31
a(9) = 30: a(10) = 31: a(11) = 30: a(12) = 31
nian = Val(TextNian.Text)
yue = Val(TextYue.Text)
ri = Val(TextRi.Text)
For i = 1 To yue - 1 ‘依次加上之前每个月的天数
ans =
Next i
ans = ans + ri ‘加上当月的天数
If yue > 2 Then ‘包含2月时,判断是否闰年,修正总天数
If nian Mod 400 = 0 Then ans = ans + 1
If nian Mod 4 = 0 And nian Mod 100 <> 0 Then ans = ans + 1
End If
=Str(ans)
End Sub
Dim a(1 To 5) As Integer Randomize
s = 0
Do While s<5
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,该段程序运行后,下列说法正确的是( )
寻求路径最大值的算法设计如下:
按三角形的行划分,若有n行,则有n-1个步骤
①从底层开始,本身数即为最大值
②倒数第二层的计算取决于底层的数据:
12+6=18,13+14=27,24+15=39,24+8=32;
③倒数第三层的计算取决于底二层的数据:
27+12=39,39+7=46,39+26=65;
④倒数第四层的计算取决于底三层的数据:
46+11=57,65+8=73;
④最后的路径:13—8—26—15—24其和为86。
根据上述算法描述,设计程序界面如下图所示,点击“生成金字塔”按钮,在列表框中生成数字金字塔,点击“寻求路径最大值”按钮,在文本框text1中输出最大值。
依据上述描述设计如下VB程序:
Const n = 5
Dim sx As String
Dim i, j, k, a(1 To 100) As Integer Private Sub Command1_Click() List1.Clear
For i = 1 To n For j = 1 To i
①
sx = sx + Str(a((i - 1) * n + j)) Next j
For k = n To i Step -1 sx = " " + sx
Next k List1.AddItem sx sx = ""
Next i End Sub
Private Sub Command2_Click() For i = n To 1 Step -1
For j = 2 To i
If ② Then
a((i - 2) * n + j - 1) = a((i - 1) * n + j - 1) + a((i - 2) * n + j - 1)
Else
a((i - 2) * n + j - 1) = a((i - 1) * n + j) + a((i - 2) * n + j - 1)
End If Next j
Next i
③
End Sub
请回答下列问题:
,输出路径最大值是。
① ② ③
For i = 1 To 9 Step 2
b(a(i) Mod 10) = b(a(i) Mod 10) + 1
Next i
s = 0
For i = 0 To 9 Step 3
s =s + b(i)
Next i
数组b各元素初始值为0, 数组元素a(1)到a(9)的值依次为“29,74,12,38,16,45,21,57,33”,则执行该程序段后,s的值为( )
a(1)=1:a(2)=1
b(1)=1:b(2)=2
For i=3 To 5
a(i)=a(i-1)+a(i-2)
b(i)=b(i-1)+a(i)
Next i
执行该程序段后,数组元素b(5)的值为( )
Dim a(1 To 6)As Integer
Sum=0
For i=1 To 6
For j=i+1 To 6
If j Mod i=0 Then a(j)=1-a(j)
Next j
Next i
For i=1 To 6
Sum=Sum+a(i)
Next i
Text1.Text=Str(Sum)
该程序段运行后,文本框Text1中显示的内容是( )
Const n = 10
Dim a (1 To n) As Integer
Dim mid As Integer,L As Integer,R As Integer Randomize
a(1) = 10
For i = 2 To n
a(i) = a(i-1) + Int(Rnd*2) + 1
Next i
c = 0:L = 1:R=n:flag = False:Key = 11
Do While L< = R And Not flag
mid = Int((L+R)/2+0.5)
c = c+1
If a(mid) = Key Then
flag = True
Else If a(mid) > Key Then
R = mid-1
Else
L = mid+1
End If
Loop
执行该程序段后,变量c可能的値是( )
Dim a(1 To 20)As Integer
For i=2 To 10
For j=2 To 20\i
a(i*j)=a(i*j)+1
Next j
Next i
运行该程序段后,数组a中值为1的元素个数为( )
请用Python语言回答下列问题:
请回答下列问题:
Dim score(1 To 1000) As Integer
Dim class As Integer, n As Integer, m As Integer
Private Sub Command1_Click0
Dim num(1 To 7) As Integer
Dim result As String, rs As String, bj As String
列表框List2中输出第一行信息, 代码略
n=class*40+ 1
For i= 1 To n
List1.AddItem Str(score(i))
Next i
For i= 1 To 7
num(i)= 0
Next i
m=0
For i=2 To n
num(x) = num(x) + 1
If i Mod 40= 1 Then
result = Str(m) + "班"
For k= 1To 7
rs = Str(num(k))+"人”
result= result + rs
Next k
List2.AddItem result
Fork= 1 To 7
Next k
End If
Next i
End Sub
用计算机对《红楼梦》进行词频统计的研究,用计算机模拟水稻高产栽培的模型,“神州飞船”发射指挥中心使用大量的计算机设备对飞船的指挥和控制等等,无不体现计算机的魅力和神秘莫测!计算机像人类的大脑一样充满智慧,像神仙一样神机妙算,这些都是归于计算机程序的功劳。