g1339334803-CSDN博客

原创关于十进制转化为十六进制

这个我也不会，问的其他同学，也只是记住了程序内容Private Sub Command1_Click() Me.Font.Size = 30 Print shiliujinzhi(230)End SubPrivate Function shiliujinzhi(m As Byte) As String Dim n As Byte n = m

2016-05-04 21:28:37 304

原创关于十进制转化成二进制

最近几次做上机课的习题，基本上就是按照图片做的，不理解，，，，Private Sub Command1_Click() Me.Font.Size = 30 Dim n As Byte n = 23 Const er As Byte = 2 Dim shang As Byte Dim yushu(1 To 5) As Byte

2016-05-04 21:26:19 276

原创二乘一的运算

电脑有点故障，没办法弄图片了，只能直接打程序了。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, yu

2016-05-04 21:22:32 277

原创关于九种求和方法

真是不好意思啊，老师，好久没有上传博客了，因为好久都没学会了，今天就把以前的空缺补上了。（一） Option ExplicitPrivate Sub Command1_Click()Dim i As IntegerDim a(10) As IntegerDim sum As IntegerRandomizeFor i = 1 To 10 a(i) = In

2016-05-04 20:45:31 260

原创关于vb 多任意数字大小排列问题

今天又开始做老师留的作业了，感觉学了很久还是不知道这vb到底咋用，目前还是只能跟着图片做题。下面开始就是今天是程序步骤了：首先打开VB软件，点击按钮，开始编程。（以下用图片显示）图片大小超过限制。。。。。。我来把前一段打上去ClsFont.size = 30Dim n As IntegerDim size As Integersize = Int(Val

2016-04-04 09:12:35 3441

原创关于VB 15个数字排序问题

打开vb后，主要步骤Private Sub Command1_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

2016-03-27 11:53:17 685

原创 VB关于红糖水与白糖水的交换

private sub command1_click( )dim s as stringdim a as loadpictarecolorconstantss=loabl1.captionlabel1.caption=label2.captionlabel2.caption=sa=label1.forecolorlabel1.forecolor=label2.forec

2016-03-27 11:43:26 250

g1339334803的博客