tian3266的博客

原创 5.26 vb作业

Private Sub Command1_Click()ClsPrintFor n = 1 To 8Print Tab(n + 20);For m = 1 To 10Print Spc(1); "*";Next mPrintNext nEnd Sub简单！！！

原创 vb作业--个人信息

原创 vb 排序法

随机出现十个数并排序选择排序法Private Sub Command1_Click()ClsMe.Font.Size = 10Dim a(100) As IntegerDim i As IntegerFor i = 1 To 100  a(i) = 10 + Int(Rnd() * 1000)  Print a(i);  Next i  Print

原创 vb作业-排序法

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

原创 vb作业

将任意一个十进制转换为十六进制简单型Private Sub Command1_Click()Me.Font.Size = 30Print Hex(230)End Sub详细型Private Sub Command1_Click()Me.Font.Size = 30Dim a As IntegerDim b As IntegerDim s As Str

原创 vb

Me.Font.Size = 50Print erjinzhi(230)End SubPrivate Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 2Dim retures As StringDim shang As ByteDim yushu(1 To

原创 vb中的乘法运算

简单型功能：一位数乘以一位数            一位数乘以两位数            两位数乘以两位数程序：Private Sub Command1_Click()             Dim a As Byte, c As Integer            Dim b As String            b = Me.Text1.Text   

原创 vb作业

心累, 没做出来,实在是没看出来哪里出了问题Option Base 1Private Sub Command1_Click()Me.Font.Size = 30Dim n1() As Byte, n1len As LongDim n2() As Byte, n2len As LongDim yushu1 As ByteDim yushu2 As ByteDi

原创 vb作业

Private Sub Command1_Click()ClsFont.Size = 50Print 阶乘(10)End SubPrivate Function 阶乘(n As Integer) As LongIf n = 1 Then阶乘 = 1Else阶乘 = n * 阶乘(n - 1)End If End Function

原创 迟到的vb作业

我觉得这节课的内容挺简单的,不像上节课那么的枯燥无味,方法也简遍,我也在规定时间里做完了练习,但是令我苦恼的是:电脑不配合,连不上网.so 作业又交迟了.不过,迟也有迟的好处,我又趁这机会练习了一遍,印象更深刻了.(这是十天前的感悟,至于为什么现在交,因为每次上机时,都没时间登博客了,所以,作业还是要当堂完成,要不然就会出现像我这样一拖再拖的情况)任务有:1: 出现15个数2:出现15

原创 vb作业

随机出现10个数并求和一Option Explicit                                                                Private Sub Command1_Click()ClsDim i As IntegerDim a(10) As IntegerDim sum As Integer

原创 vb作业

哇塞，竟然忘了做vb作业，快快补上，不知是否还来得及？ Private Sub Command1_Click()ClsMe.Font.Size = 24Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As