- 博客(6)
- 收藏
- 关注
原创 十进制转化为十六进制
Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim yushu As Byte Dim s As String a = 1230 b = 16 While a a = a \ b yushu = a Mod b s = f(yushu)
2016-05-07 17:39:28
295
原创 我的第一次作业喔
这是第一次写所谓的vb作业,虽说之前上过好几节课,但是一直没有写。回忆我的vb课,真是一把辛酸泪。哈哈,各种不会下面就把我的作业分享给大家Dim n As Integer Dim sierdun(15) As Integern = 1While n sierdun(n) = Int(Rnd * 1000) n = n + 1Wend n =
2016-03-31 16:57:37
241
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人