VB上机试验【重庆医科大学】Visual___Basic_期末考试.docx

上机试验一 中英文切换程序。 鼠标单击“中文”命令按钮后，在标签中显示中文“谢谢光临！ ”; 如果单击“英文“命令按钮后，在标签中显示英文“ Tha nks for your attendance! ”，如图所示。窗体文件名为 SY 1-2,工程文件 名也为SY1-2。 上机试验二 在窗口中添加一个标签，设置 BorderStyle属性为有边框，编写 程序代码实现：单击窗体后，标签上显示如图所示的信息，标签 文字字体设置为隶书，文字大小 20，加粗，倾斜，下画线。完成 后保存文件，窗体文件名为 SY 2-1,工程文件名也为SY 2-1。 在窗体上，按下鼠标右键拖动，在窗体的标题栏中显示鼠标指针 的坐标位置。完成后保存文件，窗体文件名为 SY 2-2, 工程文件 名也为SY2-2。 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Forml.Caption = X ，” Y End If End Sub 在窗体上，按下鼠标左键，窗体的背景色变为绿色，并显示“按 下鼠标键，触发 MouseDown事件”；松开鼠标左键，窗体的背 景色变为红色，并显示“松开鼠标键，触发 MouseUp事件”。 完成后保存文件，窗体文件名为 SY2-3，工程文件名也为SY2-3 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Me.BackColor = vbGreen Me.Print 按下鼠标键，触发 MouseDown事件 End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Cls If Button = 1 Then Me.BackColor = vbRed Me.Print 松开鼠标键，触发 MouseUp事件 End If End Sub 运行程序时，按下某个键，在窗体上显示其 Ascii值和对应的按 下的键名。如在键盘上依次按下“ A”、“Y”、“7” 、“，”和“” 键的运行结果如图。窗体文件名为 SY2-4，工程文件名为SY2-4 Private Sub Form_Activate() Print Tab(1); keyascii 值;Tab(15);对应的按下的键名 End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii; Tab(15); Chr(KeyAscii) End Sub 上机试验三 在两文本框中输入数据，单击等号命令按钮，结果显示在标签中，如图所示 完成后保存文件，窗体文件名为 SY3-2，工程文件名也为SY3-2。 2.编写程序实现窗体一出现时(Load事件过程)，用Print语句在窗体第六行20 列处开始打印显示“Hello,World! ”完成后保存文件，窗体文件名为SY3-3， 工程文件名也为SY3-3。 (1.注意在开头加上 Form1.AutoRedraw = True ！ Private Sub Form_Load() Form1.AutoRedraw = True Show For i = 1 To 6 If i = 6 Then Print Tab(20); hello,world! Else Print End Sub 3.编写程序实现窗体一出现时（Load事件过程），用Print方法在窗体上显示计 算机系统当前的日期和时间，要求字体加粗、倾斜、下画线，字的颜色为红 色。窗体文件名为SY3-4,工程文件名也为SY3-4。 Private Sub Form_Load() Show Form1.F on tBold = True Form1.ForeColor = vbRed Form1.F ontUn derli ne = True Form1.F on tItalic = True Print系统当前的日期和时间; Now End Sub 上机试验四 如图所示，编写程序代码实现单击命令按钮两文本框中内容的互换。工程文 件名：sy4-1;窗体文件名：sy4-1 -交换-Ini xi数据 -交换 -Ini xi 数据i： 数Sa： Private Sub Comma nd1_Click() t = Text1.Text Text