自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(7)
  • 收藏
  • 关注

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

这个我也不会,问的其他同学,也只是记住了程序内容 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 3439

原创 关于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

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除