yedashuang的博客

原创 VB语言5“用户名”与“密码”实验报告

VB语言5“用户名”与“密码”实验报告姓名：叶大塽学号：15050342035实验日期：2016.5.26实验内容：首先创作一个登录页面，然后输入相应的字并对字符大小进行修改，然后建立数据库，在数据库内建立数据表并对表格进行相应的命名，然后编制程序，最后运行输出结果。实验步骤：登录-Form-frmlogin StartUpPosition=2，账号-Label TextB

原创 VB实验报告“找出二维数组n×m中的鞍点”

VB实验报告“找出二维数组n×m中的鞍点” 姓名：叶大塽班级及学号：电气2班15050342035日期：2016年5月26日 一．实验目的设计Vb程序，找出二维数组n×m中的鞍点。二．实验内容找出二维数组n×m中的鞍点，所谓的鞍点是指它在本行中值最大，在本列中值最小，输出鞍点的行，列，有可能在一个数组中找不到一个鞍点，如无鞍点则输出“无”。三．实验程序P

原创 VB语言5“用户名”与“密码”实验报告

VB语言5“用户名”与“密码”实验报告姓名：叶大塽学号：15050342035实验日期：2016.5.26实验内容：首先创作一个登录页面，然后输入相应的字并对字符大小进行修改，然后建立数据库，在数据库内建立数据表并对表格进行相应的命名，然后编制程序，最后运行输出结果。实验步骤：登录-Form-frmlogin StartUpPosition=2，账号-Label TextB

原创 选择法排序

Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 10)Print a(i);Next iPrintDim j As IntegerFor j = 1 To 10For i = j + 1 To 10

原创 十进制向十六进制转化.

Private Sub Command1_Click()Dim yushu As ByteDim a As IntegerDim b As Integera = 1230: b = 16While a yushu = a Mod bs = f(yushu) & sa = a \ bWendPrint sEnd SubPrivate Fun

原创 十进制向十六进制转化

Private Sub Command1_Click()Dim yushu As ByteDim a As IntegerDim b As Integera = 1230: b = 16While a yushu = a Mod bs = f(yushu) & sa = a \ bWendPrint sEnd SubPrivate Fun

原创 十六进制

Private Sub Command1_Click()Me.Font.Size = 20Dim i As IntegerDim b As IntegerConst a As Integer = 16Dim shang As IntegerDim yushu(1 To 2) As Integerb = 251i = 1shang = b \ ayushu(i

原创 二进制

Private Sub Command1_Click()Me.Font.Size = 20Dim i As IntegerDim b As IntegerConst a As Integer = 2Dim shang As IntegerDim yushu(1 To 8) As Integerb = 251i = 1shang = b \ ayushu(i)

原创 用while随机求十个数的和

Private Sub Command1_Click()ClsDim n As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)Print a(n)n = n + 1WendDim sum As Integers = 0n = 1While n sum = sum +

原创 do-while随机求十个数的和

Private Sub Command3_Click()ClsDim n As IntegerDim a(10) As Integern = 1Do While n a(n) = Int(Rnd * 1000)sum = sum + a(n)n = n + 1LoopPrint sumEnd Sub  Private Sub Command6

原创 do-until随机求十个数的和

Private Sub Command4_Click()ClsDim n As IntegerDim a(10) As Integern = 1Do Until n > 10a(n) = Int(Rnd * 1000)sum = sum + a(n)n = n + 1LoopPrint sumEnd Sub Private Sub Command

原创 求一到十的和

Private Sub Command7_Click()ClsPrint f(10)End SubPrivate Function g(x As Integer) As LongIf x = 1 Theng = xElseg = x + g(x - 1)End IfEnd Function

原创 简单数的乘法

Private Sub Command1_Click()ClsMe.Font.Size = 50Dim n1 As IntegerDim n2 As IntegerDim yushu As IntegerDim shang As IntegerDim tempresult As Doublen1 = (Val(Me.Text1.Text))n2 = (Val(M

原创 用if随机生成十个数排序

Private Sub 排序_Click()ClsDim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As IntegerDim i As IntegerDim j As

原创 2位数乘以一位数

Option Base 1Private Sub Command1_Click()    Me.Font.Size = 70    Dim n1() As Byte, n1Len As Long    Dim n2() As Byte, n2Len As Long    Dim yushu1 As Byte, yushu2 As Byte    Dim shang As B

原创 n*1

Private Sub Command1_Click()    Cls    Dim a() As Byte    Dim r() As Byte    Dim b As String    Dim c As Byte    Dim i As Long    Dim L As Long    L = Len(Me.Text1.Text)    ReDim a(L

原创 对vb感受（下）

通过几节课的听讲和练习，感觉对vb了解更上一层楼。从一开始弄时间开始停止到比大小，感觉vb还是比较容易的，大概是学了C语言的原因吧。感觉vb相对C语言相比更加宽松一点，C语言上机的时候多半时间内心是崩溃的，有一种想砸电脑的冲动，vb上机倒是没有这种冲动，不过有时候也挺着急的，大半时间心里还是挺平静的。  通过这几次vb课感到这是一个实用性很强的东西，通过它可以计算，看时间，排序。。。还有很多我

原创 对vb感受（上）

对vb的感受

原创 vb