长沙理工大学物理化学考试试题

希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入

错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是

A)在Dim n语句的下面添加一句：n=O

B)把Print \口令输入错误\次\改为Print \口令输入错误\次\

C)把Print \口令输入错误\次\改为Print \口令输入错误\次\

D)把Dim n改为Static n

(25)要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是

A)Private Sub P1_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)

Print X,Y

End Sub

B)Private Sub P1_MouseDown(Button AS Integer,Shift As Integer,X As Single, Y As Single)

Picture.Print X,Y

End Sub

C) Private Sub P1_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)

P1.Print X,Y

End Sub

D)Private Sub Form_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)

P1.Print X,Y

End Sub

(26)计算二的近似值的一个公式是。

某人编写下面的程序用此公式计算并输出π的近似值：

Private Sub Comand1_Click()

PI=1

Sign=1

n=20000

For k=3 To n

Sign=-Sign/k

PI=PI+Sign/k

Next k

Print PI*4

End Sub

运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是

A)把For k=3 To n 改为 For k=1 To n

B)把n=20000改为n=20000000

C)把For k=3 To n改为For k=3 To n Step 2

D)把PI=1改为PI=0

(27)下面程序计算并输出的是

Private Sub Comand1_Click()

a=10

s=0

Do

s=s+a*a*a

a=a-1

Loop Until a<=0

Print s

End Sub

A)13+23+33+…+103的值

B)10!+…+3!+2!+1!的值

C)(1+2+3+…+10)3的值

D)10个103的和

(28)若在窗体模块的声明部分声明了如下自定义类型和数组

Private Type rec

Code As Integer

Caption As String

End Type

Dim arr(5) As rec

则下面的输出语句中正确的是

A)Print arr.Code(2),arr.Caption(2)

B)Print arr.Code,arr.Caption

C)Print arr(2).Code,arr(2).Caption

D)Print Code(2),Caption(2)

(29)设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框

Private Sub Comand1_Click()

CD1.DialogTitle=\打开文件\

CD1.InitDir=\

CD1.Filter=\所有文件|*.*|Word文档|*.doc|文本文件|*.Txt\

CD1.FileName=\

CD1.Action=1

If CD1.FileName=\

Print\未打开文件\

Else

Print\要打开文件\

End If

End Sub

但实际显示的对话框中列出了C:\\下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是

A)把CD1.Action=1改为CD1.Action=2

B)把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”

C)在语句CD1.Action=1的前面添加：CD1.FilterIndex=3

D)把CD1.FileName=\改为CD1.FileName=\文本文件\

(30)下面程序运行时，若输入395，则输出结果是

Private Sub Comand1_Click()

Dim x%

x=InputBox(\请输入一个3位整数\