JYXSeHun-优快云博客

原创最大值最小值平均值

Private Sub Command1_Click() Dim max As Integer, min As Integer, sum As Integer, average As Single Dim x As Integer, i As Integer Randomize max = 10: min = 99 sum = 0 For i = 1 To 20 x = Int(90

2016-06-02 18:03:00 1435

原创平行四边形

Private Sub Form_Click() Cls Print For n = 1 To 8 Print Tab(n + 20); For m = 1 To 10 Print Spc(1); "*"; Next m Print Next n End Sub

2016-05-26 16:59:51 526

原创登陆笔记

登录--Form-frmLogin StartUpPosition=2 账号---Label TextBox-txtUserID 密码---Label TextBox-txtPassword 登录、取消---CommandButton cmdLogin--default:true---ENTER cmdCancel--cancel:true---ESC 字体：大小：小一所有控

2016-05-19 17:47:34 354

原创冒泡排序法

Private Sub Command1_Click() Me.FontSize = 30 Dim a(10) As Integer Dim i As Integer For i = 1 To 10 a(i) = 10 + Int(Rnd() * 100) Print a(i); Next i Print Dim p As String Dim j As Int

2016-05-12 18:07:53 275

原创选择排序法排列10个随机产生的10~100之间的数

Dim a(1 To 10) As Integer Private Sub Command1_Click() Form_Load End Sub Private Sub Command2_Click() p = "" For i = 1 To 9 For j = i + 1 To 10 If a(i) t = a(i): a(i) = a(j

2016-05-07 18:18:45 2890

原创 10进制向16进制转化

Private Sub Command1_Click() Me.Font.Size = 60 Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Byte a = 1230 b = 16 While a yushu = a Mod b If yushu s

2016-05-07 16:58:48 475

原创任意255以内的十进制数转化为16进制数

Private Sub Command1_Click() Me.Font.Size = 35 Print shiliujinzhi(255) End Sub Private Function shiliujinzhi(m As Byte) As String Dim n As Byte n = m Const shiliu As Byte = 16 Dim returnS As S

2016-04-28 17:14:02 3912

原创任意255以内的十进制数向二进制数的转化

Private Sub Command1_Click() Me.Font.Size = 35 Print erjinzhi(230) End Sub Private Function erjinzhi(m As Byte) As String Dim n As Byte n = m Const er As Byte = 2 Dim returnS As String Dim sh

2016-04-28 17:03:23 1860

原创将十进制数23转化为二进制数

Private Sub Command1_Click() Me.Font.Size = 35 Dim n As Byte n = 23 Const er As Byte = 2 Dim shang As Byte Dim yushu(1 To 5) As Byte i = 5 shang = n \ er yushu(i) = n Mod er While shang i

2016-04-28 16:33:49 3727

原创 3乘1

Dim a As Byte Dim b As String Dim c As Byte b = Mid(Me.Text1.Text, 1, 1) a1 = Int(Val(b)) b = Mid(Me.Text1.Text, 2, 1) a2 = Int(Val(b)) b = Mid(Me.Text1.Text, 3, 1) a3 = Int(Val(b)) b = Me

2016-04-21 17:40:37 348

原创多乘二？

Private Sub Command1_Click() Dim c1 As Integer Dim c2 As Integer Dim a() As Byte Dim b As String Dim changdu As Long, i As Long changdu = Len(Text1.Text) ReDim a(changdu) For i = 1 To changdu

2016-04-21 17:10:36 286

原创两位数与个位数之和？

Private 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 Dim yushu2 As Byte Dim yushu2 As Byte Dim shang As Byte Dim i

2016-04-14 17:40:12 423

原创两个个位数之积

Private Sub Command1_Click() Me.Font.Size = 40 Dim n1 As Byte, n1Len As Long Dim n2 As Byte, n2Len As Long Dim yushu As Byte Dim shang As Byte Dim tempresult As Byte n1 = Int(Val(Me.Text1.Text)

2016-04-14 16:59:06 401

原创 1000以内任意十个整数之和

Option Explicit Private Sub Command1_Click() Font.Size = 30 Dim i As Integer Dim a(10) As Integer Dim sum As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 10

2016-04-07 16:22:40 505

原创最后一个

Option Base 1 Private Sub Command1_Click() Font.size = 30 Dim n As Integer Dim size As Integer size = Int(Val(Me.Text1.Text)) size = Int(Val(Me.Text1.Text)) Dim slerdum() As Integer ReDim sler

2016-03-31 17:43:09 272

原创另一种做法（15个数中最小的数在最后）

Private Sub Command1_Click() Font.Size = 30 Dim n As Integer Dim slerdum(15) As Integer n = 1 While n slerdum(n) = Int(Rnd * 1000) n = n + 1 Wend Dim swap As Integer m = 1 While

2016-03-31 17:21:53 345

原创 15个数中，最后一个为最小的

Private Sub Command1_Click() Font.Size = 30 Dim n As Integer Dim slerdum(15) As Integer n = 1 While n slerdum(n) = Int(Rnd * 1000) n = n + 1 Wend Dim swap As Integer n = 1 While

2016-03-31 17:04:07 400

原创 vb

Private Sub Command1_Click() Font.Size = 30 Dim n As Integer Dim slerdum(15) As Integer n = 1 While n slerdum(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n Print slerdum

2016-03-31 16:39:51 297

原创 vb作业