填空题

函数Int(Rnd*10)+10的值的范围是______。

【参考答案】

(A0,AI)

<上一题目录下一题>

热门试题

填空题

有如下函数过程： Function gys(By Val x As Integer，By Val y As Integer) As Integer Do While y preminder=x y x=y y=preminder Loop gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是______。 Private Sub Command1_Click() Dim a As Integer，b As Integer a=10:b=2 x=gys(a，b) Print x End Sub

填空题

下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a As Integer，n As Integer，Cout As Integer Dim Sn As Long，Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox( 请输入a的值： ) n=InputBox( 请输入n的值! ) Do Tn=Tn*10+a Sn=Sn+Tn Cout=Cout+1 ______ Debug Print a，n，Sn End Sub

相关试题