第2题
程序执行结果S的值是【 】。 Private Sub Command1_Click() i=0 Do i=i+1 s=i+s Loop Until i>=4 Print s End Sub
第3题
设有如下程序: Private Sub Form_Click() Dim a As Integer,s As Integer n=8 S=0 DO S=S+n n=n-1 Loop While n>0 Print S End Sub 以上程序的功能是【 】。程序进行后,单击窗体,输出结果为【 】。
第4题
下面程序的功能是调用sub函数计算数组a中字符串的长度,请填空。 sub(char s[]) { int n; for(n=0;【 】n++); return 【 】; } main() { char*a;int k; gets(a); 【 】 printf("%d",k);
第5题
以下是一个计算矩形面积的程序,调用过程计算矩形面积,请将程序补充完整。 Sub RecArea(L,W) Dim S As Double S=L*W MsgBox"Total Area is"& Str(S) End Sub Private Sub Command1_Click() Dim M,N M=InputBox("What is the L?") M=Val(M) 【 】 N=Val(N) 【 】 End Sub
第6题
程序执行结果s的值是【 】。 Private Sub sub1(Byval p As Integer) p=p*2 End Sub Private Sub Command1_Click() Dim i As Integer i=3 Call sub1(i) if i>4 then i=i mod 2 Print cstr(i) End Sub
第7题
程序如下: Private Sub Form_Click() Const PI=14159 Dim r As Single,S As Single R=InputBox("请输入圆的半径","输入数据","50") S = PI*r*r Print "S=";Format(S,",.") End Sub 程序运行后,单击窗体,将显示一个输入对话框,输入数据35,单击“确定”按钮后,输出结果为【 】。
第8题
含S有机试样0.471g,在氧气中燃烧,使S氧化为SO2,用预中和过的H2O2将SO2吸收,全部转化为H2SO4,以0.108mol/L KOH标准溶液滴定至化学计量点,消耗28.20mL。求试样中S的质量分数。
第9题
第10题
Private Sub Command1_Click() Dim y As String,S As String S=Text1.Text 【 】 TextText=y End Sub Private Sub Rever(S As String,y As String) Dim i As Integer y=" " For i=Len(S) To 1 Step-1 y=y&【 】 Next i End Sub
第11题
设有如下程序 Private Sub Fom1_Click() Dim s As Integer,b As Integer a=20:b=50 p1 a,b p2 a,b p3 a,b Print"a=";a,"b=";b End Sub Sub pl(x As Integer,ByValy As Integer) x=x+10 y=y+20 End Sub Sub p2(ByVal x As Integer,y As Integer) x=x+10 y=y+20 End Sub Sub p3(ByVal x As Integer,ByValy As Integer) x=x+10 y=y+20 End Sub 该程序运行后,单击窗体,则在窗体上显示的内容是:a=【 】和b=【 】。