huanhuanxukun-CSDN博客

原创判断一个数是否能被17或35整除

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-06-05 17:28:10 551

原创输出正三角形

Private Sub Form_click() Cls Print: Print: Print For i = 1 To 8 '输出8行 Print Tab(20 - i); '控制每行的起始位置 For j = 1 To 2 * i - 1 '每行输出2*i-1个“*” Print "*"; Next Print '换行Next

2012-06-05 17:22:26 486

原创计算工资税率

Private Sub Command1_Click()Dim m As SingleDim n As SingleDim x As SingleDim y As Singlem = Val(Text1.Text)n = m - 800Select Case n Case Is y = n * 0.05 Case Is y = n *

2012-06-05 17:20:18 790

原创随机生成n个数

Dim a() As Integer 'n显示随机正整数Private Sub Command1_Click() n = InputBox("请输入一个正整数n，n>=1") 'n用来储存正整数Call getNinteger(n) End Sub Sub getNinteger(ByVal n As Integer) ReDim a(1 To n) '

2012-06-05 17:18:45 678

原创实现能动的图形

Privavte Sub Command_Click()Timer1.Enabled = TrueTimer1.Interval = 100End SubPrivate Sub Command2_Click()Form1.ClsEnd SubPrivate Sub Command3_Click()Timer1 = FalseEnd SubPriv

2012-06-05 17:15:33 223

原创 VB生日日期并判断是不是星期天

Private Sub Command1_Click() Dim Year As Integer Dim Month As Integer Dim Day As Integer Dim DayOfWeek As Integer Dim Birthday As Date Year = Int(Val(Text1.Text)) Month = I

2012-06-05 17:08:03 1068

原创 VB判断整除并整除

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,

2012-06-05 17:03:32 2811

原创比较十个数的大小

Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim max As IntegerDim myarray(7) As IntegerDim mystr As String a = 2 b = 12 mystr = "" For i = 0 To 7 myarray(i) =

2012-06-05 17:00:59 351

原创三个数比较大小

Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As IntegerDim max As Integer a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text) If a > b Then max = a

2012-06-05 16:56:36 190

原创 VB比较两个数的大小

以下是其编程： Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim max As Integer a = Val(Text1.Text)b = Val(Text2.Text) If a > b Then max = a Else m

2012-06-05 16:55:02 1509

原创 VB温标转换

以下是华氏与摄氏之间转换的编程： Private Sub Command1_Click() '摄氏→华氏 If Trim(Text1.Text) = "" Then Text1.Text = "0" '调用自定义函数 Label3.Caption = TransTh(Val(Text1.Text), True) Label4.Caption = "摄氏度"

2012-06-05 16:52:11 751

huanhuanxukun的专栏