Rnd函数课堂知识清单+课后练习
班级姓名
一、课堂知识清单
3.int函数配合rnd函数后乘以某数，即产生某数的倍数，如int(rnd()*10)*2，即随机产生【0,18】之间能被
2整除的数，即【0,18】间的偶数，注意辨别int函数右括号的位置；
4.用程序表示一个完整的算法过程包括四个步骤：定义、赋初值（包括输入）、处理、输出
5.算法必须有输出，在VB中输出一般借助于label类、text类、list类对象，输出语句类似：
<=str(a)/label1.caption=”算式”+str(i)+s(i)
/list1.additem str(i)——additem是方法，无等号
二、课后练习
1.下列关于算法特征的叙述，正确的是(        )
A.一个算法必须有多个输出
B.一个算法可以没有输出
C.一个算法至少要有一个输出
D.一个算法只能有一个输出
2.VB表达式“ int(rnd()*30) ”可能产生的随机数一共是多少个(        )
A.无数个
B.1
C.29
D.30
3.VB表达式“ int(rnd()*30)*2 ”可能产生的随机数一共是多少个(        )
A.58
B.60
C.29
D.30
4.VB表达式“ int(rnd()*30*2) ”可能产生的随机数一共是多少个(        )
A.62
B.60
C.29
D.30
5.随机产生集合{-1,1}中任意一个数的VB表达式是(        )
A.int(rnd*2)-1
B.int(rnd*3)-1
C.int(rnd*3)\2-1
D.int(rnd*2)*2-1
6.下列VB 表达式中，只随机产生9 到99 之间偶数的是(        )
A.Int(Rnd*90+10)
B.Int(Rnd*90+9)
C.Int(Rnd*45)*2+10
D.Int(Rnd*45)*2+9
7.产生一个随机大写字母的VB表达式是(        )
A.Chr(Int(Rnd*25+65))
B.Asc(Int(Rnd*25+65))
C.Chr(Int(Rnd*26+65))
D.Asc(Int(Rnd*26+65))
8.下列表达式中，可取到的最大值中最小的是(        )
A.200-Rnd()
B.(Rnd()*95)*2+10
C.(Rnd()-Rnd())*200
D.Int(Rnd()*95)*2+11
9.下列能正确表示等差数列{1,5,9,……，93,97}中随机整数的表达式是（）
A.Int(Rnd()*98)+1
B.Int(Rnd()*49)*2+1
C.Int(Rnd()*25)*4+1
D.Int(Rnd()*24)*4-3
10. 下列VB表达式中，值与其他三项不同的是（）
A.len(“-1+6”)
B.abs(int(-3.1))
C.mid(“1314”,4,1)
D.Int(Rnd()+1)*4
11.下列VB表达式中数值最小的是（）
A.Int(Rnd()*98)+1
int函数啥意思B.Int(Rnd()*49)*2+1
C.Int(Rnd()*25)*4+1
D.Int(Rnd()*24)*4-3
12.要求随机生成"ABCDEF"中某个字符，下列表达式中不正确的是（）
A.Mid(“ABCDEF”, Int(Rnd * 6) + 1, 1)
B.Mid(“ABCDEF”, Int(Rnd * 6) , 1)
C.Chr(Int(Rnd * 6) + 65)
D.Chr(Int(Rnd * 6) + Asc("A"))
13.VB表达式“int(rnd()*20) * 2 + 31”生成的值，范围是
14.VB表达式“int(rnd()*20 * 2) + 31”生成的值，范围是
15.VB表达式“int(rnd()*91+10) * 10 + 3”生成的值，范围是
16.产生一个随机小写字母的VB表达式可以是
17.产生一个【10,230】之间能被10整除的数VB表达式可以是
18.产生一个【10,230】之间能被10整除余2的数VB表达式可以是
19.用VB随机产生10个100以内的不重复的加减算式的VB程序界面如图所示：VB程序如下，请用中括号表示出过程四步骤，请将程序补充完整。
Private Sub Command1_Click()
Dim i,a,b,fh As Integer
Dim fhs As String
Dim s(1 To 10) As String
Const n = 10
List1.Clear
Randomize
○1
fh = Int(Rnd() * 2)
If fh = 1 Then
fhs = "+"
Else
fhs = "-"
End If
○2
If fh = 1 Then
b = Int(Rnd() * (100 - a))
Else
b = Int(Rnd() * (a - 10) + 10)
End If
s(i) = Str(a) + fhs + Str(b) + "="
For j = 1 To i - 1 Step 1
If s(j) = s(i) Then
○3
Exit For
End If
Next j
○4
Next i
end sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。