VB复习题解读.doc

VB复习题 按照要求编写程序：新建一个VB工程，在窗体中添加三个文本框，内容为空；添加三个标签，标签内容分别为“产生一个65-90的随机正整数”、“ASCII码对应的大写字符为”、“小写字符为”；添加一个按钮，按钮上显示“随机产生大写字母”。在按钮的事件过程中编写代码，使得程序运行时，在第一个文本框中随机产生一个正整数，在第二个文本框里给出对应大写英文字母，在第三个文本框中显示出这个字母的小写形式。 Private Sub Command1_Click() Text1 = Int(Rnd * 26 + 65) Text2 = Chr(Text1) Text3 = LCase(Text2) End Sub 随机生成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 我国有13亿人口，假定按人口年增长0.8%计算，多少年后我国人口超过26亿。 提示：（1）假定年增长率r=0.8%。求人口数超过26亿的年数n的公式为 n= 其中log(x)为对数函数 界面自行设计 Private Sub Command1_Click() Text2 = 1300000000 Text1 = Log(2) / Log(1 + 0.8 / 100) End Sub 随机生成一个四位正整数，将其逆序后输出并显示。运行界面自行设计。 Private Sub Command1_Click() Text1 = Int(Rnd * 9000 + 1000) Text2 = StrReverse(Text1) End Sub 输入一个字符串，分别调mid、left、right函数，显示如下图所示效果 Private Sub Command1_Click() Text2 = Mid(Text1, 5) Text3 = Left(Text1, 5) Text4 = Right(Text1, 5) End Sub 在text1文本框输入字符串，text2文本框显示调用所选函数的结果，4个命令按钮为转换函数，label2显示对应的函数名，运行效果如下图。 Private Sub Command1_Click() Text2 = Val(Text1) End Sub Private Sub Command2_Click() Text2 = Str(Text1) End Sub Private Sub Command3_Click() Text2 = Chr(Text1) End Sub Private Sub Command4_Click() Text2 = Asc(Text1) End Sub 7. 已知一个两位正整数，将其个位和十位对调位置后生成一个新数。 要求:在窗体下方添加一个按钮，按钮上显示“输入一个两位数”。在文本框中输入已知两位正整数，新数在文本框中输出。添加适当的标签说明。界面自行设计，在适当的事件过程中编写代码。 Private Sub Command1_Click() Text2 = (Text1 Mod 10) * 10 + Text1 \ 10 End Sub 8.已知一个两位正整数，将其个位和十位对调位置后生成一个新数。 要求：通过InputBox函数让用户输入一个两位正整数，程序把这个数的个位和十位对调位置，生成一个新的数，计算结果在窗体上用print方法显示出来。（输出位置距离窗口左边界有10个空格，输出中有“位置对调后的新数为：”说明文字） Private Sub Form_Click() Dim x%, y% x = InputBox(请输入一个两位正整数) y = StrReverse(x) Print 位置对调后的新数为:; y End Sub 9.已知一个正实数，计算并显示其平方、平方根、立方。 要求：用文本框、按钮、标签等控件，界面自行设计（每个数据结果保留3位小数） Private Sub 计算_Click() Text2 = Text1 * Text1 Text3 = Round(Sqr(Text1), 3) Text4 = Text1 ^