计算机应用实践VB方向4.pptVIP

南昌航空大学 何英 TEL 编写一个程序,输入x和y的值，求 表达式 的值。 编写一个程序, 实现以下功能：输入直角三角形的斜边长度和一个锐角的角度，计算其面积，提示：三角函数的参数是以弧度表示的。 编写一个程序, 实现以下功能：随机产生一个[0，20]之间的十进制偶数，并转换成八进制和十六进制数，显示这三个数值。 编写一个程序，实现以下功能：输入一个ASCII码（32-126），显示对应的字符；输入一个字符，显示其ASCII码。 Weekday(日期数据)返回指定日期是一星期中的第几天。注意：星期天是1，星期一是2，以此类推。 Date[( )]返回系统时间 WeekdayName(整型数据)返回指定数字的星期名称。 DateAdd(“时间单位”,数值, 日期) 如：DateAdd(d, -1, Date) * Private Sub cmdTan_Click() Text3.Text = Tan(Val(Text3.Text)) End Sub Private Sub Command1_Click() Dim s As Double If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) And Not (Combo1.Text = ÷ And Val(Text2.Text) = 0) Then Select Case Combo1.Text Case ＋ s = Val(Text1.Text) + Val(Text2.Text) Case － s = Val(Text1.Text) - Val(Text2.Text) Case × s = Val(Text1.Text) * Val(Text2.Text) Case ÷ s = Val(Text1.Text) / Val(Text2.Text) End Select Label1.Caption = Str(s) Else Label1.Caption = 操作数错误请重新输入！ If Not IsNumeric(Text1.Text) Then Text1.SetFocus Else Text2.SetFocus End If End If End Sub Private Sub Command2_Click() If Command2.Caption = 计算函数↓ Then Command2.Caption = 四则运算↑ Form1.Height = 5925 Else Command2.Caption = 计算函数↓ Form1.Height = 2730 End If * Private Sub Command1_Click() Dim s As Double s = (Abs(Val(Text1.Text) + Val(Text2.Text)) + Exp(5)) / (Val(Text1.Text) * Val(Text2.Text)) Label3.Caption = Str(s) End Sub * Private Sub Command1_Click() Dim a As Single Dim s As Single Const pi As Single = 3.14 a = Val(Text2.Text) a = a * pi / 180 s = 1 / 2 * Sin(a) * Cos(a) * Val(Text1.Text) * Val(Text1.Text) Label3.Caption = 面积为： Str(s) End Sub * Private Sub Command1_Click() Dim a As Integer Randomize a = Int(Rnd() * 21) Label2.Caption = Str(a) 转为八进制为 Oct(a) ,转为十六进制为 Hex(a) End Sub * Private Sub Command1_Click() If IsNumeric(Text1.Text) Then If Val(Text1.Text) = 32 And Val(Text1.Text) = 126 Then Label2.Caption = Chr(Val(Text1.Text)) Else