填空题

设有以下函数过程： Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum = 0 For k = m To 1 Step -2 sum = sum + k Next k fun = sum End Function 若在程序中用语句s=fun(10)调用此函数，则s的值为 _________。

【参考答案】

30
<上一题 目录 下一题>
热门 试题

填空题
在窗体上有一个命令按钮，然后编如下事件过程：Function SR( x As Double)As DoubleSelect Case Sgn(x)Case 1SR=Sqr(x)Exit FunctionCase 0SR=0Case-1SR=-1End SelectEnd FunctionPrivate Sub Command1 _ Click( )Dim Msg，SRNDim N AS DoubleN=InputBox( 请输入要计算平方根的数 )Msg=N& 的平方根 Select Case SR(N)Case 0Msg=Msg & 是0 Case-1Msg=Msg& 是一个虚数 Case ElSeMsg=Msg & 是 & SR(N)End SelectMsgBox MsgEnd Sub程序运行后，单击命令按钮，在输入对话框内输入－1，输出结果是【 】。
填空题
本程序的功能是利用随机数函数模拟投币，方法是；每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、 Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。 程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。Private Sub Command1_Click( )Radomizen=CInt(Text1．Text)n1=0n2=0For i=1 To【 】r=Int(Rnd*2)If r=【 】Thenn1=n1+1Elsen2=n2+1End IfNextNext2．Text=n1Next3．Text=n2End Sub
相关试题