在名为Form1的窗体中建立一个命令按钮，名为Cmd1，标题为Show（如下图所示)。编写适当的事件过程，使

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程：

Private Sub Form_ Lead()

Show

Text1.Text = " "

Text2.Text = " "

Text2.SetFocus

End Sub

Private Sub Text2_ KeyDown (KeyCode As Integer, Shift As Integer)

Text1.Text = Text1.Text + Chr (KeyCode - 4)

End Sub

程序运行后，如果在Text2文本框中输入efghi，则Text1文本框中的内容是______。

编写如下代码：

Dim Flag As Boolean

Private Sub Form. MouseDown (Button As Integer,

Shift As Integer, X As Single, Y As Single)

Flag = True

End Sub

Private Sub Form. MouseMove (Button As Integer,

Shift As Integer, X As Single, Y As Single)

Flag = False

End Sub

Private Sub Form_ MouseUp (Button As Integer,

Shift As Integer, X As Single, Y As Single)

If Flag = False Then

Print "DDDD"

End If

End Sub

程序运行后，如果想在窗体上输出DDDD，则应执行的操作为______。

以下程序段的输出结果是______。

num=0

Whilenum＜=2

nam=hum+1

Wend

Printnam

分别为Cmd1、Cmd2和Cmd3，标题分别为“左端”、“居中”和“右端”。编写适当的事件过程，使程序运行后，若单击“左端”命令按钮，则滚动框位于滚动条最左端处；如果单击“居中”命令按钮，则滚动框位于滚动条中间；如果单击“右端”命令按钮，则滚动框位于滚动条最右端处。程序的运行情况如下图所示。

注意：

程序中不得使用任何变；文件必须存放在考生文件夹中，窗体文件名为 execise118.frm，工程文件名为execise118.vbp。

程序运行后，单击“计算”命令按钮，通过在对话框输入整数10，放入整型变量s中，然后计算s!(提示：运算结果应放入Long型变量中)，在文本框中显示结果，并把结果存入文件output.txt中(在考生文件夹中有一个标准模块 mode.bas，该模块中提供了保存文件的过程putdata，考生可以直接调用)。

注意：

文件必须存放在考生文件夹中，窗体文件名为execise54.frm，工程文件名为 exeeise54.vbp。