填空题

以下程序用来产生20个(0,99)之间的随机整数,并将其中的偶数打印出来。请填空。
Private Sub Command1_Clcik()
 Randomize
 For I=1 To 20
  X=Int(Rnd*_(1)_)
 If X/2=_(2)_Then Print x
Next I
End Sub

(1)()

【参考答案】

98+1
<上一题 目录 下一题>
热门 试题

单项选择题
希尔排序法属于哪一种类型的排序法()。

A、 交换类排序法
B、 插入类排序法
C、 选择类排序法
D、 建堆排序法

单项选择题
有如下函数过程: Function Fun(ByVal x As Integer,ByVal y As Integer)As Integer Do While y<>0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下调用函数的事件过程,该程序的运行结果是()。 Private Sub Command7_Click() Dim a As Integer,b As Integer a=100:b=25 x=Fun(a,B) Print X End Sub

A、0
B、25
C、50
D、100

相关试题
  • 用窗体的Caption属性可以设置窗体的___...
  • 数据结构包括数据的逻辑结构、数据的___...
  • 以下程序用来建立一个5×5矩阵,该矩阵两...
  • 设有整型变量s,取值范围为0~100,表...
  • 为了使计时器控件Timer1每隔0.5秒触发...