填空题
有如下程序:
Private Sub command1_Click()
a=1:b=1
Print"a=";a;",b=";b
Call mult((a),b)
Print "a=";a;",b=";b 语句
End Sub
Sub mult(x,y)
K=2 * k
y=3 * k
Print "x=";x;",y=";y
End Sub
运行后,标有“语句”的Print语句的输出结果是
【12】
。
【参考答案】
a=1,b=3
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private SubForm_Click() Dim Y As Single Open 【10】 Y=3.14159 180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) 【11】 Next i Close #2 End Sub
点击查看答案&解析
填空题
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。 例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。 Private Sub Comnmnd1_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 【9】 Debug. Print a,n,Sn End Sub
点击查看答案&解析
相关试题
随机文件使用Put语句写数据,使用 【15...
随机文件以 【13】 为单位读写,随机文...