- 博客(8)
- 收藏
- 关注
RSS订阅原创 判断整除并求和
Private Sub Command1_Click()Dim m As Integer, n As Integer, d As IntegerDim s As Longm = Val(Text1.Text)n = Val(Text2.Text)d = Val(Text3.Text)s = 0Sum m, n, d, sLabel4.Caption = m & "
2012-04-25 21:34:21
209
原创 素数
Private Function Judge()Dim b As Integerb = b / 1 * bEnd FunctionPrivate Sub Command1_Click() Dim a As Integer, b As Integer Show a = 0: b = 1 If Judge(b Do a = a + b b =
2012-04-25 21:32:56
295
原创 摄氏度温标与华氏度温标的转换
Option ExplicitPrivate Sub Command1_Click()If Trim(Text1.Text) = "" Then Text1.Text = "0"Label3.Caption = TransTh(Val(Text1.Text), True)Label4.Caption = "摄氏度"Label5.Caption = "华氏度"End Sub
2012-04-25 21:31:42
623
原创 十个数显示其中最大数
Private Function max(a() As Integer) As IntegerDim i As IntegerDim maxa As IntegerFor i = LBound(a) To UBound(a)If a(i) > maxa Thenmaxa = a(i)max = maxaEnd IfNext iEnd FunctionPriv
2012-04-25 21:27:21
266
原创 三个数显示其中最大数
Private Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerDim max As Integera = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a > b Thenmax = aElsemax = bEn
2012-04-25 21:26:04
1687
原创 两个数显示其中较大的数
Private Sub Command1_Click()Dim a As Integer, b As Integera = Val(Text1.Text)b = Val(Text2.Text)If a > b ThenLabel3.Caption = aElseLabel3.Caption = bEnd IfEnd Sub
2012-04-25 21:24:43
512
原创 计算纳税金额
计算纳税金额 代码如下 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
2012-04-25 07:33:04
393
原创 计算出生的星期程序
计算出生的星期程序 代码如下 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 =
2012-04-25 07:32:07
245
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人