shu92的专栏

原创 VB作业

Dim WithEvents myTextBox As VB.TextBox   Private Sub Command1_Click() 'Dim myTextBox As VB.TextBox Set 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 string Dim n as string M=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 Sup Private 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 Boolean Private Sub Command1_Click() If flag = False Then Timer1.Interval = 10 flag = True Else Timer1.Interval = 0 flag = False End 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; " 的最大公约数是:"; G End Sub Priv