- 博客(7)
- 收藏
- 关注
原创 将十进制的数据转化为二进制(似懂非懂1.0)
Private Sub Command1_Click() Me.Font.Size = 60 Print erjinzhi(23) End Sub Private Function erjinzhi(m As Byte) As String Dim n As Byte n = m Const er As Byte = 2 Dim retu
2016-04-28 16:26:29 665
原创 图片太麻烦——————一位数乘以一位数
Option Explicit Dim i As Integer Dim sum As Integer Private Sub Command1_Click() Cls Font.Size = 70 End Sub Private Sub Timer1_Timer() sum = sum + i i = i + 1
2016-04-14 16:35:03 378
原创 用VB进行十五个字母的排序——>编程
心力交瘁。 码完这段毫无技术水平的代码感觉自己像打开了新世界的大门。 看不懂,还依然伪装。各种删改,我假装它能运行的模样。 无论对错与否…… 这玩意儿…… 我都码了两节课…… so有感情了,比如唾弃,厌倦…什么的。 老师我真的尽力了。 其实我会冒泡排序法!
2016-03-24 17:46:42 1479 3
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人