BISHULILILILI的博客

原创 将十进制的数据转化为二进制（似懂非懂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

原创 两位数相乘

原创 图片太麻烦——————一位数乘以一位数

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

原创 练手

运行不了……TAT

原创 冤魂不散的排序2.0升级版

完美如斯，我完全找不出任何破绽。 可!是！ 依然无法运行。 作孽啊人生为何如此艰难……

原创 vb课堂作业（排序1.0）

迅速的完成了作业，但仍然处于一知半解的状态。 …… …… 发个图片浪费了好多时间作业做不完也算情有可原对吗。

原创 用VB进行十五个字母的排序——>编程

心力交瘁。 码完这段毫无技术水平的代码感觉自己像打开了新世界的大门。 看不懂，还依然伪装。各种删改，我假装它能运行的模样。 无论对错与否…… 这玩意儿…… 我都码了两节课…… so有感情了，比如唾弃，厌倦…什么的。 老师我真的尽力了。 其实我会冒泡排序法！