shu92的专栏

原创 VB作业

Dim WithEvents myTextBox As VB.TextBox Private Sub Command1_Click()'Dim myTextBox As VB.TextBoxSet myTextBox = Me.Controls.Add("VB.TextBox", "myTextBox")myTextBox.Move Me.Command1.Left - 500

原创 输入两个数，比较大小

原创 三位数比较大小

原创 。。。

原创 随机生成10个不同的数

原创 个人纳税计算程序

Private Sub Command1_Click() Dim s s = Val(Trim(InputBox("个人收入：", "个人所得税计算", 2000))) Print "个人收入为"; s; "元时，应缴纳的个人所得税为"; If s Then Print 0 Else s = s - 1600 '如果个人收入高于起征点，则计算个人应得额 Select C

原创 100以内素数的和

100以内的素数的和                                             Option Explicit Dim i, j, k As Integer Dim isS As Boolean Private Sub Form_Load()     Show     For i = 1 To 100         isS

原创 课堂作业

编写判断一个数是否同时被17与37整除的 function过程，输出1000-2000之间所有能被17与37整除的数。  Function S(i As Integer) as boolean If (i Mod 17 = 0 And i Mod 37 = 0) Then S = True Else S = False

原创 计算机VB心得

记住了基本的应用函数，并且尝试熟练的掌握。知道了一些函数的应用方法，了解了编制程序的基本过程。知道了在程序无法应用时，可以逐句检查编写的程序。今后将更加好好学习VB程序语言，尝试举一反三，利用一个程序推倒出更多的程序来。

原创 随机数

Private Sub command1_Click Dim mas stringDim n as stringM=Val(Text1.Text)n=Val(Text1.Text) Text3.Text=m+Int(Rnd*(n-m+1))    End Sup 总结：随机数要用到Rnd（x）的函数,且Rnd函数表示（0,1】的随机数

原创 大小写

Dim x as string        Private Sub form _load()           X=Text1.Text        End SupPrivate Sub command1_Click              Text1.Text=Ucase(x)        End Sup      Private Sub command2_

原创 显示各位数

Dim stuname as string      Dim Maths As Integer ,Eng ASinteger , s Integer      Private Sub command1_Click       Stuname=InputBox       Maths= InputBox        Eng= InputBox      Compu = In

原创 VB中的多位数乘法

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() A

原创 素数程序

Private Sub Command1_Click()                                            'htm15                                            'css3                                            'Javascrip    Dim M A

原创 利用VB制作一个秒表

Dim m As Integer, s As Integer, ms As Integer, flag As BooleanPrivate Sub Command1_Click()If flag = False ThenTimer1.Interval = 10flag = TrueElseTimer1.Interval = 0flag = FalseEnd If

原创 求最大公约数

Private Sub Form_Click() Dim N As Integer, M As Integer, G As Integer N = InputBox("输入 N ") M = InputBox("输入 M ") G = Gcd(N, M) Print N; " 和 "; M; " 的最大公约数是:"; GEnd SubPriv