vb实验四的题.doc

实验四4.1选择1、 编写程序，用inputbox函数从键盘上输入你的生日，通过msgbox函数输出你的出生日是星期几？并在窗体上显示当今至你的出生日已经有多少天了?Private Sub Form_Load()Dim sr As Datesr = InputBox(请输入你的生日, 输入生日)MsgBox WeekdayName(Weekday(sr)Print DateDiff(d, sr, Date)End Sub4.22、 编写程序，用inputbox函数从键盘上任意输入A，B，C三个数，然后比较输出最大和最小的数。Private Sub Form_Click()Dim a!, b!, c!a = InputBox(输入a)b = InputBox(输入b)c = InputBox(输入c)Max = a: Min = aIf Max b Then t = Min: Min = b: b = tIf Max c Then t = Min: Min = c: c = tPrint 最大数是：; Max, 最小数是：; MinEnd Sub4.33、 编写程序计算话费，界面要求：在Text1文本框中输入通话时间，然后按回车键(Enter),马上在Text2文本框中显示出话费（话费的显示格式为：$ 1.50 元）。 0.5 a=3y = 0.5+(a-3) 0.2 3a0.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 And 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, 是; b; 位数 Print 各位数分别是：; indiv Print 逆序为：; indiv End SelectEnd Sub4.55、 建立一个文本框对象用于输入日期；一个标签对象用于输出结果（格式自定）和一个“确定”按钮；当在文本框中输入日期然后按“确定”键,程序能算出所输入的日期是星期几，若为星期一、星期三、星期五，则在标签中显示“星期几在图书馆”；若为星期二、星期四，则显示“星期几在家”；若为星期六、星期天，则显示“星期几出去玩”Private Sub Command1_Click()d = CDate(Text1.Text)x = WeekdayName(Weekday(d)Select Case x Case 星期一, 星期三, 星期五 Label1.Caption = x & 在图书馆 Case 星期二, 星期四, 星期六 Label1.Caption = x & 在家 Case Else Label1.Caption = x & 去逛街 End SelectEnd Sub4.66、 编写学前班学生使用的计算程序，计算20以内的加与减运算。界面如下图所示。操作数与运算符随机产生并用标签输出算术式子，用文本框接收用户输入的答案，单击“确定”按钮后算术式子和答案以及对错都在图片框中显示；单击“计分”按钮算出题数和得分；单击“重做”按钮则清空图片框并重发题；单击“结束”按钮结束程序运行。7、Dim a%, b%, jg%Dim dui%, cuo%, op As String * 1Private Sub Command1_Click()Picture1.Print -Picture1.Print 共 & dui + cuo & 题; Tab(10); _; 每小题; Int(100 / (dui + cuo); 分Picture1.Print 你得; Int(dui / (dui + cuo) * 100); 分dui = 0: cuo = 0End SubPrivate Sub Command2_Click()If Val(Text1) = jg Then Picture1.Print a & op & b & = & jg; Tab(15); 对 dui = dui + 1 Else Picture1.Print a & op & b & = & Text1; Tab(15); 错 cuo = cuo + 1 End IfText1 = Text1.SetFocusForm_LoadEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command4_Click()Picture1.ClsText1 = Text1.SetFocusForm_LoadEnd SubPrivate Sub Form_Load()Randomizea = Int(Rnd * 20 + 1)b = Int(Rnd *