下面程序运行的结果为
1
11 12
21 22 23
31 32 33 34
请在画线处填上适当的内容使程序完整。
Private Sub Form_Click()
Call [13]
End Sub
Private Sub Pl6()
End Sub
Private Sub p16()
ForI=1 to 4
Forj=1 to I
a= [14]
Print Tab(j-
查看答案
阅读下列程序。
Option Base 1
Private Sub Form. Click()
Dim x(3,3)
For j=l to 3
For k=l to 3
If j=k then x(j,k)=l
If j<>k then x(j,k)=k
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(x() )
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时,输出结果为【 】
编写函数jsValue,它的功能是:求Hofstadter数列中的第m项H(m)(m<1000),结果由函数返回。其中数列H(n)的定义为:
H(1)=H(2)=1
H(n)=H(n-H(n-1))+H(n-H(n-2))(n>2)
最后调用函数writeDat()读取50个数据m,分别得出结果且把结果输出到文件out.dat中。
例如:当t=997时,函数值为605。
部分源程序已给出。
请勿改动主函数main()和写函数writeDat()的内容。
include<stdio. h>
int jsValue(int m)
{
main ()
{
int m;
m=300;
printf ("m=%d, k-%d\n", m, jsValue (m));
writeDat ();
writeDat ()
{
FILE *in, *out;
int i,m,s;
in= fopen ("in. dar" , "r" );
ut=f open ("out. dar" , "w" );
for (i=0; i<50; i++) {
fscanf (in, "%d", &m);
s=jsValue (m);
printf("%d\n", s );
fprintf (out, "%d\n" , s );
}
fclose (in);
fclose (out);
The Internet is about to take off in China. As many as 9 million people are on line, a number that is estimated to hit 20 million by the end of 2000. It is predicted that this phenomenal growth will have great impact on our society and economy. Choose one aspect of our society or economy where you think the impact will be most strongly felt, and write an essay of about 300 words entitled THE IMPACT OF THE INTERNET ON...
In the first part of your writing you should present your thesis statment, and in the second part you should support the thesis statement with appropriate details. In the last part you should bring what you have written to a natural conclusion or a summary.
Marks will be awarded for content, organization, grammar and appropriacy. Failure to follow the above instructions may result in a loss of marks.