- 博客(9)
- 收藏
- 关注
原创 两个数中显示最大的
两个数中显示最大的程序:1.打开程序.2,添加两个text一个command和一个label.3编写程序.程序如下: Private Sub Command1_Click()Dim a As Integer, b As Integera = Val(Text1.Text)b = Val(Text2.Text)If a > b ThenLabel3.Caption =
2012-05-22 22:42:00 331
原创 三个数中显示最大的
三个数中显示最大的的程序:1.打开程序.2.添加一个command.三个text和一个label.3编写程序.程序如下: Private Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerDim max As Integera = Val(Text1.Text)
2012-05-22 22:35:43 249
原创 十个数中显示最大的数
十个数中显示最大的数步骤如下:1.打开程序。2.添加一个command.3.编写程序.程序如下: 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 =
2012-05-22 22:30:17 338
原创 华氏温标与摄氏温标的转换
华氏温标与摄氏温标的转换步骤:1.打开程序。2.插入五个label和一个text和两个command。3.编写程序。程序如下: Option ExplicitPrivate Sub Command1_Click()If Trim(Text1.Text) = "" Then Text1.Text = "0"Label3.Caption = TransTh(Val
2012-05-22 21:24:59 1083
原创 判断一个数是否为素数
判断素数步骤:1.打开程序。2.添加一个command和两个label。3.编写程序。程序如下: Private Function Judge()Dim b As Integerb = b / 1 * bEnd FunctionPrivate Sub Command1_Click() Dim a As Integer, b As Integer
2012-05-22 21:16:22 345
原创 判断整除并求和
判断整除并求和的步骤如下:1.打开程序。2.添加两个command和两个text。3.编写程序。程序如下: 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(T
2012-05-22 21:10:38 261
原创 随机生成10个数
生成随即生成十个数的步骤如下:1.打开程序。 2.插入command。 3 .编写程序. 程序如下:Private Sub Command1_Click()Dim a(10) As IntegerDim mystr As StringDim printstr As Stringa(i) = Int(Rnd() * 100 + 1)printstr = Str(a(1)
2012-05-22 20:59:05 1172
原创 计算出生星期
今天设计了一个计算出生的星期程序代码如下Private Sub Command1_Click()Dim Year As IntegerDim Month As IntegerDim Day As IntegerDim Birthday As DateDim N As IntegerYear = Int(Val(Text1.Text))Month = In
2012-04-24 12:48:27 158
原创 vb计算纳税金额
计算纳税金额代码如下Private Sub Command1_Click()Dim n As Single, w As SingleDim s As Single, m As Singlen = Val(Text1.Text)w = n - 500Select Case w Case Is s = 0.05 Case Iw
2012-04-24 12:47:25 507
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人