VB复习题

1. 按照要求编写程序：新建一个VB工程，在窗体中添加三个文本框，内容为空；添加三个标签，标签内容分别为“产生一个65-90的随机正整数”、“ASCII码对应的大写字符为”、“小写字符为”；添加一个按钮，按钮上显示“随机产生大写字母”。在按钮的事件过程中编写代码，使得程序运行时，在第一个文本框中随机产生一个正整数，在第二个文本框里给出对应大写英文字母，在第三个文本框中显示出这个字母的小写形式。 Private Sub Command1_Click() Text1 = Int(Rnd * 26 + 65) Text2 = Chr(Text1) Text3 = LCase(Text2) End Sub

2. 随机生成2个正整数，其中1个2位数、一个3位数，分别计算它们的和、差、积、商（四舍五入，保留两位小数）。运行界面自行设计，要求有text、lable、command. Private Sub Command1_Click() Text1 = Int(Rnd * 90 + 10) Text2 = Int(Rnd * 900 + 100) Text3 = Val(Text1) + Val(Text2) Text4 = Text2 - Text1

Text5 = Text1 * Text2

Text6 = Round(Text2 / Text1, 2) End Sub

3. 我国有13亿人口，假定按人口年增长0.8%计算，多少年后我国人口超过26亿。

提示：（1）假定年增长率r=0.8%。求人口数超过26亿的年数n的公式为

n=错误！未找到引用源。 其中log(x)为对数函数

（2） 界面自行设计

Private Sub Command1_Click() Text2 = 1300000000

Text1 = Log(2) / Log(1 + 0.8 / 100) End Sub

4. 随机生成一个四位正整数，将其逆序后输出并显示。运行界面自行设计。

Private Sub Command1_Click() Text1 = Int(Rnd * 9000 + 1000) Text2 = StrReverse(Text1) End Sub

5. 输入一个字符串，分别调mid、left、right函数，显示如下图所示效果

Private Sub Command1_Click() Text2 = Mid(Text1, 5) Text3 = Left(Text1, 5) Text4 = Right(Text1, 5) End Sub

6. 在text1文本框输入字符串，text2文本框显示调用所选函数的结果，4个命令按钮为转换函数，label2显示对应的函数名，运行效