g1339334803-CSDN博客

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

这个我也不会，问的其他同学，也只是记住了程序内容 Private Sub Command1_Click() Me.Font.Size = 30 Print shiliujinzhi(230) End Sub Private 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 1 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, yu

2016-05-04 21:22:32 277

原创关于九种求和方法

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

2016-05-04 20:45:31 260

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

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

2016-04-04 09:12:35 3441

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

打开vb后，主要步骤 Private Sub Command1_Click() Cls Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer Dim f As Integer Dim g As Integer Dim h As Integer Dim i As

2016-03-27 11:53:17 681

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

private sub command1_click( ) dim s as string dim a as loadpictarecolorconstants s=loabl1.caption label1.caption=label2.caption label2.caption=s a=label1.forecolor label1.forecolor=label2.forec

2016-03-27 11:43:26 250

g1339334803的博客