VB上机试验[重庆医科大学]VSUALBASC期末考试.pdfVIP

重庆医科大学VisualBasic 上机实验 上机试验一 1. 中英文切换程序。 鼠标单击“中文”命令按钮后，在标签中显示中文“谢谢光临！”； Thanksfor 如果单击 “英文 “命令按钮后，在标签中显示英文 “ yourattendance!”，如图所示。窗体文件名为SY1-2，工程文件 名也为SY1-2。 重庆医科大学VisualBasic 上机实验 上机试验二 1. 在窗口中添加一个标签，设置BorderStyle 属性为有边框，编写 程序代码实现：单击窗体后，标签上显示如图所示的信息，标签 20 文字字体设置为隶书，文字大小 ，加粗，倾斜，下画线。完成 后保存文件，窗体文件名为SY2-1，工程文件名也为SY2-1。 2. 在窗体上，按下鼠标右键拖动，在窗体的标题栏中显示鼠标指针 的坐标位置。完成后保存文件，窗体文件名为SY2-2，工程文件 名也为SY2-2。 PrivateSub Form_MouseMove(ButtonAsInteger,ShiftAsInteger,XAs Single,YAs Single) IfButton 2Then Form1.Caption X ,Y EndIf End Sub 3. 在窗体上，按下鼠标左键，窗体的背景色变为绿色，并显示 “按 下鼠标键，触发 MouseDown 事件”；松开鼠标左键，窗体的背 景色变为红色，并显示 “松开鼠标键，触发 MouseUp 事件”。 完成后保存文件，窗体文件名为SY2-3，工程文件名也为SY2-3。 PrivateSub Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAs Single,YAs Single) IfButton 1Then Me.BackColor vbGreen Me.Print 按下鼠标键，触发 MouseDown 事件 EndIf End Sub PrivateSub Form_MouseUp(ButtonAsInteger,ShiftAsInteger,XAs Single,YAs Single) Cls 重庆医科大学VisualBasic 上机实验 IfButton 1Then Me.BackColor vbRed Me.Print 松开鼠标键，触发 MouseUp 事件 EndIf End Sub 4. 运行程序时，按下某个键，在窗体上显示其Ascii 值和对应的按 A Y 7 下的键名。如在键盘上依次按下“ ”、“ ”、“” 、“，”和 “” 键的运行结果如图。窗体文件名为SY2-4，工程文件名为SY2-4。 PrivateSub Form_Activate() PrintTab(1);keyascii值;Tab(15);对应的按下的键名 End Sub PrivateSub Form_KeyPress(KeyAsciiAsInteger) PrintKeyAscii;Tab(15);Chr(KeyAscii) End Sub 上机试验三 1. 在两文本框中输入数据，单击等号命令按钮，结果显示在标签中，如图所示。 完成后保存文件，窗体文件名为SY3-2，工程文件名也为SY3-2。 2. 编写程序实现窗体一出现时(Load事件过程 ，用) Print 语句在窗体第六行20 列处开始打印显示“Hello,World!” 。完成后保存