请对下面的程序填空： ***计算乘法XY．PRC*** SET TALK OFF CLEAR FOR J=1 T0 9 7STR（J)2)+’)’ FOR

运行下列XY.PRG程序后，将在屏幕上显示如下的乘法表：

1

2 4

3 6 9

4 8 12 16

5 10 15 20 25

6 12 18 24 30 36

7 14 21 28 35 42 49

8 16 24 32 40 48 56 64

9 18 27 36 45 54 63 72 81

请对下面的程序填空：

***计算乘法XY．PRG***

SET TALK OFF

CLEAR

FOR J=1 TO 9

FOR【 】

？？【 】

EMDFOR

？

ENDFOR

RETURN

下面的程序通过函数average计算数组中各元素的平均值，请填空。 float avetage(int * pa，int n) { int i； float avg＝0.0； for(i=0；i＜n；i+ +)； avg＝avg+【 】 ；avg＝【 】 ； return avg； } main() { int i，a[5]＝{2，4，6，8，10，}； float mean； prinf("% mean＝% f\n"，mean)； }

下面的程序是计算给定函数的值，自变量x，y的值用InputBox函数输入，函数如下：

f（x,y） =

程序不完整，请填空，将程序的补充完整。

Option Explicit

Dim x As Single

Dim y As Single

Dim z As Single

Private Sub Command1_Click（）

x=Val（InputBox（"x="） ）

y=Val（InputBox（"y="） ）

End Sub

Private Sub Command2_Click（）

If 【13】 Then

z=x ^ 2 + y ^ 2

ElseIf 【14】 Then

z=x ^ 2 - 2 * y ^ 2

【15】

z=y ^ 2 - 3 * x ^ 2

End If

Form1.Print "当x，y的值为："; x, y

Form1.Print "f（x,y） 的值为："; z

End Sub

下列程序的功能是通过字符串变量操作竖向显示“伟大祖国”，横向显示“祖国伟大”，请填空。

CLEAR

STORE "伟大祖国"TO XY

CLEAR

N=1

DO WHILE N＜8

？ SUBSTR______

N=N+2

ENDDO

？______

？？ SUBSTR(XY,1,4)

RETURN

阅读下面的程序段，请填空。

1 TAB DB 10H，20H，30H，40H，50H

2 P1 DD 02001000H

3 P2 DD TAB

4 LDS DI， P1

5 LES SI， P2

执行4指令后，(DS)=______。

下面的程序功能是完成工资查询，请填空：

SET TALK OFF

USE employee

ACCEPT”请输入职工号”T0 NUM

LOCATE FOF职工号=hum

IF 【 】

DISPLAY姓名，工资

ELSE

？”职工号输入错误!”

ENDIF

USE

SET TALK 0FF

下面的程序把从终端读入的文本(用@作为文本结束标志)输出到一个名为bi.dat的新文件中，请填空。 include ＜stdio．h＞ include＜stdlib．h＞ FILE*fp； main() { charch； if((fp=fopen(【 】))==NULL)exit(0)； while((ch=getchar())!=@) fputc(ch，fp)； fclose(fp)； }