wang1873060-优快云博客

原创两个数中显示最大的

两个数中显示最大的程序:1.打开程序.2,添加两个text一个command和一个label.3编写程序. 程序如下: Private Sub Command1_Click() Dim a As Integer, b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a > b Then Label3.Caption =

2012-05-22 22:42:00 385

原创三个数中显示最大的

三个数中显示最大的的程序:1.打开程序.2.添加一个command.三个text和一个label.3编写程序. 程序如下: Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim max As Integer a = Val(Text1.Text)

2012-05-22 22:35:43 290

原创十个数中显示最大的数

十个数中显示最大的数步骤如下：1.打开程序。2.添加一个command.3.编写程序. 程序如下: Private Function max(a() As Integer) As Integer Dim i As Integer Dim maxa As Integer For i = LBound(a) To UBound(a) If a(i) > maxa Then maxa =

2012-05-22 22:30:17 382

原创华氏温标与摄氏温标的转换

华氏温标与摄氏温标的转换步骤：1.打开程序。2.插入五个label和一个text和两个command。3.编写程序。程序如下： Option Explicit Private Sub Command1_Click() If Trim(Text1.Text) = "" Then Text1.Text = "0" Label3.Caption = TransTh(Val

2012-05-22 21:24:59 1264

原创判断一个数是否为素数

判断素数步骤：1.打开程序。2.添加一个command和两个label。3.编写程序。程序如下： Private Function Judge() Dim b As Integer b = b / 1 * b End Function Private Sub Command1_Click() Dim a As Integer, b As Integer

2012-05-22 21:16:22 385

原创判断整除并求和

判断整除并求和的步骤如下：1.打开程序。2.添加两个command和两个text。3.编写程序。程序如下： Private Sub Command1_Click() Dim m As Integer, n As Integer, d As Integer Dim s As Long m = Val(Text1.Text) n = Val(Text2.Text) d = Val(T

2012-05-22 21:10:38 307

原创随机生成10个数

生成随即生成十个数的步骤如下：1.打开程序。 2.插入command。 3 .编写程序. 程序如下: Private Sub Command1_Click() Dim a(10) As Integer Dim mystr As String Dim printstr As String a(i) = Int(Rnd() * 100 + 1) printstr = Str(a(1)

2012-05-22 20:59:05 1259

原创计算出生星期

今天设计了一个计算出生的星期程序代码如下 Private Sub Command1_Click() Dim Year As Integer Dim Month As Integer Dim Day As Integer Dim Birthday As Date Dim N As Integer Year = Int(Val(Text1.Text)) Month = In

2012-04-24 12:48:27 196

原创 vb计算纳税金额

计算纳税金额代码如下 Private Sub Command1_Click() Dim n As Single, w As Single Dim s As Single, m As Single n = Val(Text1.Text) w = n - 500 Select Case w Case Is s = 0.05 Case Iw

2012-04-24 12:47:25 546