- 博客(6)
- 收藏
- 关注
RSS订阅原创 两位数乘以两位数
Private Sub Command1_Click()Dim a As ByteDim c As IntegerDim b As Stringb = Me.Text1.Texta = Int(Val(b))b = Me.Text2.Textc = Int(Val(b))Dim r As Byter = a * cPrint rEnd Sub
2016-04-21 16:36:29
358
原创 个位数乘个位数
太难了我还是很努力的做了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 tempresult As Byte
2016-04-21 16:27:58
350
原创 计算机8个
Private Sub Command1_Click()Dim n As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)n = n + 1Wend n = 1While n Print a(n)n = n + 1Wend Sum = 0n = 1Whil
2016-04-14 16:16:27
302
原创 15顺序 最小的最后
今天老师教了VB 太厉害了 我感觉我重新认识了电脑的新世界 天哪 我的天哪 so难老师的讲法真是通俗易懂 我感觉我豁然开朗从此之后我要用心听讲老师认真的态度真是太帅了Private Sub Command1_Click()ClsFont.Size = 30Dim a As IntegerDim sierdun(15) As Integern = 1Whi
2016-03-31 16:36:02
269
原创 VB简便15顺序
Private Sub Command1_Click()ClsFont.Size = 30Dim a As IntegerDim sierdun(15) As Integern = 1While n sierdun(n) = Int(Rnd * 1000) n = n + 1Wendn = 1While n Print
2016-03-31 16:19:11
381
原创 15顺序 VB作业
Private Sub Command1_Click()ClsMe.Font.Size = 24Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As IntegerDi
2016-03-31 16:09:01
277
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人