VB编程
huanhuanxukun
这个作者很懒,什么都没留下…
展开
-
输出正三角形
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 · 494 阅读 · 0 评论 -
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 · 1094 阅读 · 0 评论 -
三个数比较大小
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 · 200 阅读 · 0 评论 -
判断一个数是否能被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 · 563 阅读 · 0 评论 -
比较十个数的大小
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 · 363 阅读 · 0 评论 -
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 · 1540 阅读 · 0 评论 -
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 · 768 阅读 · 0 评论 -
随机生成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 · 695 阅读 · 0 评论 -
实现能动的图形
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 · 233 阅读 · 0 评论 -
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 · 2854 阅读 · 0 评论 -
计算工资税率
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 · 804 阅读 · 0 评论