- 博客(7)
- 收藏
- 关注
RSS订阅原创 多乘一
Private Sub Command1_Click()Dim a As ByteDim b As StringDim c As Byteb = Mid(Me.Text1.Text, 1, 1)a1 = Int(Val(b))b = Mid(Me.Text1.Text, 2, 1)a2 = Int(Val(b))b = Mid(Me.Text1.Text, 3, 1)a3 = Int(Val(b)
2016-05-07 16:46:32
174
原创 二进制
今天老师说我打得慢！！ 我很难过！！ 因为电脑实在是很慢！ 我也是没办法的哇！ 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) A
2016-04-28 16:43:06
177
原创 两位数乘以两位数
写出来啦！！哈哈哈哈哈哈哈哈哈哈哈 Private Sub Command1_Click() Dim a As Byte Dim c As Integer Dim b As String b = Me.Text1.Text a = Int(Val(b)) b = Me.Text2.Text c = Int(Val(b)) Dim r As Byte r = a
2016-04-21 17:20:35
233
原创 个位数乘以个位数
恩 我感觉我有进步了！！！ 太高兴了！！！！ 这个写得特别快！ Private Sub Command1_Click() Me.Font.Size = 70 Dim n1 As Byte Dim n2 As Byte Dim yushu As Byte Dim shang As Byte Dim tempresu
2016-04-21 17:16:37
376
原创 计算机作业8个
上周的作业....记得写的挺久的 已经忘了 好了！！！就这样吧！ Private Sub Command1_Click() Dim n As Integer Dim a(10) As Integer n = 1 While n a(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n Print a(n)
2016-04-14 16:20:13
229
原创 把最小的排到最后。。。。
哈哈哈哈我终于把程序写出来啦！！！！！！！ 果然辛苦付出还是有回报的！！！ 我感受到了学习写程序的乐趣！！！！！！！ 谢谢老师教我们这么简便的方法！！！ 谢谢大家！！！ 我先写完了！！！ 程序如下： Private Sub Command1_Click() Cls Font.Size = 30 Dim a As Integer Dim sierdun(15)
2016-03-31 16:37:52
137
原创 跪着给老师补上我上周的敲码作业！！！！
Private Sub Command1_Click() Cls Me.Font.Size = 24 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 Di
2016-03-31 16:14:18
242
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人