- 博客(8)
- 收藏
- 关注
RSS订阅原创 素数
代码如下： Private Function Judge() Dim b As Integer b = b / 1 * b End Function Private Sub Command1_Click() Dim a As Integer, b As Integer Show a = 0: b = 1 If Judge(b Do a = a + b
2012-04-25 21:28:16
212
原创 判断整除并求和
代码如下： 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(Text3.Text) s = 0 Sum m, n, d, s Label4.Captio
2012-04-25 21:26:23
351
原创 vb摄氏度和华氏度转换
代码如下： Option Explicit Private Function TransTh(sngT As Single, blnCtoF As Boolean) As String If blnCtoF Then TransTh = Format(sngT * 9 / 5 + 32, "0.#") Else TransTh = Format((s
2012-04-25 21:24:39
5095
原创 vb随机生成10个数并选出最大值
代码如下： 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 = a(i) max = maxa End If Next i End Functio
2012-04-25 21:19:59
3329
原创 vb比较三个数的大小
代码如下: Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim max As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a > b Then max = a Else ma
2012-04-25 21:18:17
6128
原创 vb比较两个数的大小
代码如下： 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 = a Else Label3.Caption = b End If End Sub 心得：学会了把te
2012-04-25 21:15:50
2318
原创 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-18 17:01:05
771
原创 vb计算出生星期
今天设计了一个计算出生的星期程序 代码如下 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 = Int(Va
2012-04-18 16:59:18
474
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人