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

上机试验一 中英文切换程序。 鼠标单击“中文”命令按钮后，在标签中显示中文“谢谢光临！”；如果单击“英文“命令按钮后，在标签中显示英文“Thanks for your attendance!”，如图所示。窗体文件名为SY1-2，工程文件名也为SY1-2。 上机试验二 在窗口中添加一个标签，设置BorderStyle属性为有边框，编写程序代码实现：单击窗体后，标签上显示如图所示的信息，标签文字字体设置为隶书，文字大小20，加粗，倾斜，下画线。完成后保存文件，窗体文件名为SY2-1，工程文件名也为SY2-1。 在窗体上，按下鼠标右键拖动，在窗体的标题栏中显示鼠标指针的坐标位置。完成后保存文件，窗体文件名为SY2-2，工程文件名也为SY2-2。 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Form1.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。 编写程序实现窗体一出现时(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 编写程序实现窗体一出现时(Load事件过程)，用Print方法在窗体上显示计算机系统当前的日期和时间，要求字体加粗、倾斜、下画线，字的颜色为红色。窗体文件名为SY3-4，工程文件名也为SY3-4。 Private Sub Form_Load() Show Form1.FontBold = True Form1.ForeColor = vbRed Form1.FontUnderline = True Form1.FontItalic = True Print 系统当前的日期和时间; Now End Sub 上机试验四 如图所示，编写程序代码实现单击命令按钮两文本框中内容的互换。工程文件名：sy4-1;窗体文件名：sy4-1 Private Sub Command1_Click() t = Text1.Text Text1.Text = Text2.Text Text2.Text = t End Sub 添加2标签和2文本框，运行时在第一个文本框中输入一个字符，然后按