12. 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Static y As Integer Cls For i=0 To 2 x=x+y y=y+3 Next Print x,y End Sub 程序运行后,连续二次单击Command1按钮后,窗体上显示的是______。
13. 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox("请输入A的值") a=Val(A) b=InputBox("请输入B的值") b=Val(B) x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为______。
17. 在窗体上画一个文本框,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1.Text=String(6, KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为______。
18. 编写如下事件过程: Private Sub Form_KeyDown(KeyCode AS Integer,Shift As Integer) If(Button And 3)=3 Then Print "AAAA" End If End Sub 程序运行后,为了在窗体上输出“AAAA”,应按下的鼠标键为______。
A.左
B.右
C.同时按下左、右
D.按什么键都不显示
A B C D
D
[解析] 从题目中的程序可以看出,(Button And 3)=3这个条件是永假的,所以输出语句也永远不会被执行。
19. 在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程: Private Sub Command1_Click() CommonDialog1.Flags=cdlOFNHideReadOnly CommonDialog1.Filter="All Files(*.*)|*.*|Text Files" &_ "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialog1.FilterIndex=2 CommonDialog1.ShowOPen MsgBox CommonDialog1.filename End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是______。
8. 以下程序的功能是:从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,输出结果。请填空。 Private Sub Form_click() Dim x,y As Single Dim z As Integer x=InputBox("Enter a score") Do while y=y+x z=z+1 x=InputBox("Enter a score") Loop If z=0 Then z=1 End If y= Print y End Sub
[8]x>=0 [9]y/z
[解析] 根据表达式的值有条件地执行一组语句。 语法 If condition Then [statements] [Else elsestatements] 或者,可以使用块形式的语法: If condition Then [statements] [ElseIf condition -n Then [elseifstatements]... [Else [elsestatements]] End If 当条件为True时,或直到条件变为True时,重复执行一个语句块中的命令。 语法 Do [{While|Until} condition] [statements] [Exit Do] [statements] Loop 或者可以使用下面这种语法: Do [statements] [Exit Do] [statements] Loop [{While|Until} condition] 本题的循环首先判断输入是否大于0,如果是则处理这个输入,否则结束循环。循环体内的第二个判断语句判断的是当前输入是否比当前的最小值小,如果是则改写当前最小值为输入值,否则结束判断语句。
9. 在窗体上画一个命令按钮;然后编写如下程序: Function fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox("请输入一个数") n=CLng(n) r=fun(n) Print r End Sub 程序运行后,单击命令按钮,在输入对话框中输入"345",输出结果为。
12. 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,输出结果是。
13. 在窗体上画一个命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序,单击命令按钮,其输出结果是。