zwt2311175794的博客

原创 验证书中的例题

原创 选择排序1到10000

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

原创 选择排序1到1000

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

原创 选择排序1到100

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

原创 选择排序法

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 iPrintDim j As IntegerFor j = 1 To 9For i = j +

原创 10的阶乘

1至5的数组排列10的阶乘两位数乘以一位数

原创 冒泡排序法

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 iPrintEnd Sub

原创 16进制

Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 1230: b = 16While a yushu = a Mod bIf yushu s = yushu & sElses = Chr(yushu + 55) &

原创 一个正整数用16进制表示

Private Sub Command1_Click()Me.Font.Size = 60Print Hex(230)End SubPrivate Function shiliujinzhi(m As Long) As StringDim n As Longn = mConst er As Long = 16Dim returnS As StringDim sh

原创 将一个正整数用二进制表示

Private Sub Command1_Click()Me.Font.Size = 60Print erjinzhi(230)End SubPrivate Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 2Dim returnS As StringDim sh

原创 三位数乘以一位数

原创 两位数乘以一位数

原创 用不同的方法进行随机数的相加

用不同的方法进行随机数的相加randomiae

原创 随机产生数组

用一个程序随机生成一组数组：在此程序中运用了while函数，和if函数一样是我们比较熟悉的函数。在运用中有"while和wend对应“if和end if对应”。在这个程序中要避免死循环即（忘记n=n+1这一步），这让我想起了最近在C语言课程中学习的程序框图，虽然编程过程中，机器无法识别程序框图，但我认为，程序框图能够让我们更好地理清思路。