- 博客(18)
- 收藏
- 关注
RSS订阅原创 数的乘法计算
Option Base 1 Private Sub Command1_Click() Dim M As String Dim N As String M = Trim(Text1.Text) N = Trim(Text2.Text) Dim Number1() As Byte Dim N
2012-05-28 23:43:59
216
原创 俩位数的乘法
Option Base 1 Private Sub Command1_Click() Dim M As String Dim N As String M = Trim(Text1.Text) N = Trim(Text2.Text) Dim Number1() As Byte Dim Number2()
2012-05-28 23:42:30
746
原创 素数的和
Private Sub Form_Load() Dim s As Integer, n As IntegerShow s = 0: n = 2Do While n s = s + n n = m Dim x As Integer Dim flag As Boolean x = m - 1 flag = FalseWhile x >= 2
2012-05-28 23:40:04
187
原创 生成会动的圆
Dim g As BooleanDim x As Long Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub Private Sub Form_Load()g = Truex = Shape1.LeftEnd Sub Private Sub Timer1_Timer()If g Th
2012-05-28 23:38:38
229
原创 俩位数乘法
Option Base 1 Private Sub Command1_Click() Dim M As String Dim N As String M = Trim(Text1.Text) N = Trim(Text2.Text) Dim Number1() As Byte Dim N
2012-05-28 23:37:14
244
原创 俩位数乘法拆分
Private Sub Command1_Click()Dim numberlengh As Integer Dim Firstnumbers() As Integer Dim Secondnumbers() As Integer numberlengh = Len(Text1.Text) ReDim Firstnumbers(numberle
2012-05-28 23:36:00
1824
原创 随机生成n个数
代码如下：Private Sub command1_click() Dim a() As Integer n = InputBox("请输入一个整数n,n>=1") ReDim a(1 To n) Dim p As String Randomize p = "" For i = 1 To n
2012-05-28 23:32:14
543
原创 生成随机数
Private sub command1_click()Dim m as integerDim n as integerM=val（text1.text）N=val(text2.text)Text3.text=m+int(rnd*(n-m+1))End sub在空白处双击，编写程序如下：Private sub form_load()RandomizeEn
2012-05-28 23:29:56
168
原创 计算纳税金额
计算纳税金额代码如下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-05-25 08:40:47
259
原创 计算出生星期
一个计算出生的星期程序代码如下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 = Int(Val
2012-05-25 08:39:32
216
原创 随机生成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-25 08:38:09
1092
原创 判断整除并求和
判断整除并求和的步骤如下：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-25 08:36:06
258
原创 判断一个数是否为素数
判断素数步骤：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-25 08:33:23
245
原创 华氏温标与摄氏温标的转换
华氏温标与摄氏温标的转换步骤：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-25 08:32:10
688
原创 十个数中显示最大的数
十个数中显示最大的数步骤如下：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-25 08:30:56
430
原创 三个数中显示最大的数
三个数中显示最大的的程序: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)b = V
2012-05-25 08:29:28
447
原创 两个数中显示最大的数
两个数中显示最大的程序: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-25 08:27:14
366
原创 VB实验报告
VB实验报告一：试验目的：1 利用vb程序设计语言制作随机图形2 利用vb程序设计语言制作动画二：实验内容： 1先进行界面分布和相应的属性设置 2编写代码如下： 1，Private Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 100End SubPrivate Sub Co
2012-03-25 21:24:45
340
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人