disp function can change the format of output data.

A.2

B.3

C.5

D.8

正确，程序结束；否则提示，重新输入 function pw k=0; n=input(’请输入密码(整数)\n’); while([1] ) if n==199003 disp(’输入正确’) k=1; else k=0; n=input(’密码错误，请重新输入密码(整数)\n’); end end end

三、 程序填空题（每题6分，共18分） 49．从键盘输入若干个数，当输入0时结束输入，求这些数的平均值以及平方和。 function pingfang l=0; total1=0; total2=0; a=input('input a:\n'); while([1] ) l=l+1; total1=total1+a; total2=total2+a^2; a=input(''); end total1 avg= [2] total2 end 50．编制m文件，等待键盘输入，输入密码自己的生日199003，密码正确，显示输入密码正确，程序结束；否则提示，重新输入 function pw k=0; n=input('请输入密码(整数)\n'); while([3] ) if n==199003 disp('输入正确') k=1; else k=0; n=input('密码错误，请重新输入密码(整数)\n'); end end end 51．一个函数文件，输入3个参数，前2个为矩阵，第3个是数字0或1。其中（1）如果是0，则计算矩阵乘积A*B（判断A与B能否相乘，若不能相乘，则输出：A与B不能相乘）；（2）如果是1，计算A.*B（要判断A与B能否点乘，若不能点乘，则输出：只有同型矩阵才能点乘）。 function y=myfun(A,B,num) if num==0 if [4] disp('A和B可以相乘'); y=A*B; else disp('A和B不能相乘'); end end if num==1 if [5] disp('A和B可以点乘'); y=A.*B; else disp('A和B不可以点乘'); end end

It can be concluded from the passage that the "big bang" theory is ______.

A．a fact

B．a disproved hypothesis

C．an unsupported opinion

D．an idea with some supporting evidence

设有以下函数过程

Private Function Fun(a()As Integer，b As String)As Integer

Ehd Function

若已有变量声明：

Dim x(5)As Integer，n As Integer，ch As String

则下面正确的过程凋用语句是

A．x(0)=Fun(x，“ch”)

B．n=Fun(n，ch)

C．Call Fun x，“ch”

D．n=Fun(x(5)，ch)

设有以下函数过程 Private Function Fun(a（）As Integer，b As String)As Integer … End Function 若已有变量声明： Dim x(5)As Integer，n As Integer，ch As String 则下面正确的过程调用语句是（）。

A.x(O)=Fun(x．"ch")

B.n=Fun(n．ch)

C.CallFun X，"ch"

D.n=Fun(x(5)，ch)

（23）设有以下函数过程

Private Function Fun(a() As Integer, b As String) As Integer

...

End Function

若已有变量声明：

Dim x(5）As Integer, n As Integer, ch As String

则下面正确的过程调用语句是

A）x(o)＝Fun(x, "ch")

B）n＝Fun(n, ch

C）Call Fun x, "ch"

D）n＝Fun(x(5), ch)

ABCDABCD"，ch="B"，则函数的返回值为："ACDACD" Function delchar(str As String，ch As String)As String Dim k As Inlegcr，temp As String，ret As String ret="" For k=1 To Len(str) temp=Mid(str，k，1) If temp=ch Then ret=ret＆temp End If Next k delchar=ret En d Function 但实际上函数有错误，需要修改，下面的修改方案中正确的是（）。

A.把ret=ret＆temp改为ret=temp

B.把If temp=ch Then改为If temp＜＞ch Then

C.把delchar=ret改为delchar=temp

D.把ret=""改为temp=""

设窗体上有text1文本框和Command1命令按钮，并有以下程序：

Private Sub Command1_Click()

Temp$=””

For k=1 to len(text1)

Ch$=mid(text1,k,1)

If not found(temp,ch)then

Temp=temp&【13】

End If

Next k

Text1=【14】

End Sub

Private function found(str as string,ch as string)as Boolean

For k=1 to len(str)

If ch=mid(str,k,1)then

Found=【15】

Exit function

Next k

Found=false

End function

运行时，在文本框中输入 若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母，例如，若文本框中原有字符串为“abcddbbc”则单击命令按钮后文本框中字符串为“abcd”,其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回true，否则返回false。请填空