上机练习题1

1创建一个简单的VB程序。要求在窗体上显示“欢迎登陆VB上机系统”、“请输入您的学号”和“请输入登录密码”，以及两个等待输入学号和密码的文本框和一个命令按钮。学号与密码均为8位（超过8位则不能输入），密码的输入显示为“*”。另外窗体上不要最大、最小和关闭按钮。单击命令按钮“确定”时，程序结束。程序运行效果如图所示。

2 建立一个简单的应用程序，单击窗体，则在窗体上显示“欢迎使用Visual Basic！”，双击窗体则清除屏幕。

3 教材260页第5题

4 例题建立一个允许剪切、复制和粘贴的简单便笺板程序

? ? ? ? ? ? ? ? ? ? ? ? ? ?

代码如下： Dim st As String

Private Sub Form_Load() Label1.FontSize = 16 Text1.FontSize = 10

Command1.FontSize = 10 Command2.FontSize = 10 Command3.FontSize = 10 Command4.FontSize = 10 End Sub

Private Sub Command1_Click() st = Text1.SelText Text1.SelText = \End Sub

? Private Sub Command2_Click() ? st = Text1.SelText ? End Sub

? Private Sub Command3_Click() ? Text1.SelText = st ? End Sub

? Private Sub Command4_Click() ? End ? End Sub

5建立一个简单的应用程序，其窗体界面如下图右，单击放大按钮，则文字“你好！”放大；单击缩小按钮，则文字“你好！”缩小；单击结束按钮，则结束程序的运行。

程序界面 程序运行界面

6. 实验教材p24页的实验四

7. 编写程序实现对于给定的两位数，交换个位和十位数的位置，并把处理后的数显示在窗体上。

8. 关系运算符的使用

Private Sub Command1_Click() End End Sub

Private Sub Command2_Click() Text2.PasswordChar = \

Text1 = (Text1 = \ Text2 = (Text2 = \End Sub

Private Sub Text1_GotFocus() Text1 = \

End Sub

Private Sub Text2_GotFocus() Text2 = \

Text2.PasswordChar = \End Sub

9.算术运算符的使用

Private Sub Command1_Click() Dim r1!, r2!, r3!, x!

r1 = Val(Text1): r2 = Val(Text2): r3 = Val(Text3) x = 1 / (1 / r1 * 1 / r2 + 1 / r3)

Label5 = \计算结果：\End Sub

10 逻辑运算符的使用

编写一个程序，具有以下功能：输入职工的姓名、性别、年龄和职务，判断他是否到达退休年龄。判断退休年龄的标准为：男性大于等于60岁，女性大于等于55岁或职务为“工人”的大于等于50岁。项目文件为“sy2-3判断退休”。

11. 建立一个简单的应用程序，其窗体界面如下，单击输入按钮，则将光标定位在第一个文本框；单击大写转小写按钮，则将文本框1中的大写字母转化为小写显示在文本框2中；单击小写转大写按钮，则将文本框1中的小写字母转化为大写显示在文本框3中。

Private Sub Command2_Click() Text2 = LCase(Text1) End Sub

Private Sub Command3_Click() Text3 = UCase(Text1) End Sub

Private Sub Text1_GotFocus() Text1 = \End Sub

12．界面如下，单击出题按钮，产生任意两个[1，100]之间的随机整数，单击计算按钮，求这两个数的和。

Private Sub Command1_Click() Randomize

Text1.Text = Int(Rnd * 100 + 1) Text2.Text = Int(Rnd * 100 + 1) Text3.Text = \End Sub

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub

13 教材263页第六题

使用mid, left, right函数，在text1文本框中输入一字符串，在label1, label2, label3标签显示如图的效果

Private Sub Form_Click() Label1 = Left(Text1, 11)

Label2 = Mid(Text1, 12, 6) Label3 = Right(Text1, 5) End Sub

14. 教材263页第五题

Private Sub Command1_Click() Text1 = Int(Rnd * 900 + 100) End Sub

Private Sub Command2_Click() Dim x%, x1%, x2%, x3% x = Val(Text1)

x1 = x Mod 10 ' 分离出的个位数 x2 = (x Mod 100) \\ 10 ' 分离出的十位数 x3 = x \\ 100 ' 分离出的百位数 Label1 = x1 * 100 + x2 * 10 + x3 End Sub

15. 设计一个数字时钟表，运行时单击窗体，显示当前的年、月、日、星期几及时间，运行界面如下

本文来源：https://www.bwwdw.com/article/vasf.html