vb实验四的题.doc

实验四 4.1选择 编写程序，用inputbox函数从键盘上输入你的生日，通过msgbox函数输出你的出生日是星期几？并在窗体上显示当今至你的出生日已经有多少天了? Private Sub Form_Load() Dim sr As Date sr = InputBox(请输入你的生日, 输入生日) MsgBox WeekdayName(Weekday(sr)) Print DateDiff(d, sr, Date) End Sub 4.2 编写程序，用inputbox函数从键盘上任意输入A，B，C三个数，然后比较输出最大和最小的数。 Private Sub Form_Click() Dim a!, b!, c! a = InputBox(输入a) b = InputBox(输入b) c = InputBox(输入c) Max = a: Min = a If Max b Then t = Max: Max = b: b = t If Min b Then t = Min: Min = b: b = t If Max c Then t = Max: Max = c: c = t If Min c Then t = Min: Min = c: c = t Print 最大数是：; Max, 最小数是：; Min End Sub 4.3 编写程序计算话费，界面要求：在Text1文本框中输入通话时间，然后按回车键(Enter),马上在Text2文本框中显示出话费（话费的显示格式为：$ 1.50 元）。 0.5 a=3 y = 0.5+(a-3) ×0.2 3a 0.5+(10-3) × 0.2+(a-10) × 0.1 10a 要求：分别用if单分支结构、多分支结构、分支的嵌套结构和select case语句完成。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim a, y If KeyAscii = 13 Then a = Val(Text1.Text) If a = 3 Then y = 0.5 ElseIf a 3 And a 10 Then y = 0.5 + (a - 3) * 0.2 Else y = 0.5 + 7 * 0.2 + (a - 10) * 0.1 End If Text2.Text = Format(y, $###.00) End If End Sub 4.4 随机产生一个不多于4位的正整数，要求：1）求它是几位数；2）分别显示出每位数；3）逆序输出各位数字。 Private Sub Command1_Click() Dim a%, b%, indiv%, ten%, hun%, th% Randomize a = Int(Rnd * 10000) If a 999 Then b = 4 如果a大于999则为4位数 ElseIf a 99 Then b = 3 ElseIf a 9 Then b = 2 Else b = 1 End If indiv = a Mod 10 a除以10的余数为个位数 ten = a \ 10 Mod 10 求十位数 hun = a \ 100 Mod 10 th = a \ 1000 Mod 10 Select Case b Case 4 Print a, 是; b; 位数 Print 各位数分别是：; th; hun; ten; indiv Print 逆序为：; indiv; ten; hun; th Case 3 Print a, 是; b; 位数 Print 各位数分别是：; hun; ten; indiv Print 逆序为：; indiv; ten; hun Case 2 Print a, 是; b; 位数 Print 各位数分别是：; ten; indiv Print 逆序为：; indiv; ten Case 1 Print a, 是