- 博客(7)
- 收藏
- 关注
原创 VB作业
Private Sub Command1_Click() Me.Font.Size = 60 Print erjinzhi(230)End SubPrivate Function erjinzhi(m As Byte) As String Dim n As Byte n = m Const er As Byte = 2 Dim
2016-05-16 16:18:22 167
原创 VB作业
Private Sub Command1_Click()Dim n1 As ByteDim n2 As ByteDim shang As ByteDim yushu As ByteDim tempresult As Byten1 = Int(Val(Me.Text1.Text))n2 = Int(Val(Me.Text2.Text))tempresult = n
2016-05-16 16:16:03 175
原创 VB作业
Private Sub Command1_Click() Me.Font.Size = 30 Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Byte a = 1230: b = 16 While a yushu = a Mod b
2016-05-16 16:14:36 173
原创 VB
Private Sub Command1_Click() Me.Font.Size = 50 Dim n1 As Byte Dim n2 As Byte Dim yushu As Byte Dim shang As Byte Dim tempResult As Byte n1 = Int(Val(Me.Text1.Text))
2016-04-14 17:04:41 176
原创 VB作业
1. 打开VB2. 点击出现的窗口左侧的commandbutton,再点击出现的command1,在出现的窗口中输入:Cls Me.Font.Size = 20Dim a As Integer, b As IntegerDim c As Integer a = Int(1000 * Rnd) b = Int(10
2016-03-24 17:31:26 260
原创 VB作业
1打开VB2双击屏幕左端的commandbutton,然后双击左侧label,在出现的窗口的右侧中的caption变成‘红’。再双击label,同理,变成“白”。然后在右侧窗中的forecolor中改变颜色。3Private Sub Command1_Click()Dim a As Stringa = Me.Label1.Caption Me.Label1.Caption
2016-03-24 17:28:41 181
原创 VB作业
打开VB软件,单击TextBox,放在窗体合适位置,再单击CommandButton,放在窗体合适位置,并将command1属性中名称和caption改为排序,然后双击排序,输入:Private Sub 排序_Click()ClsMe.Font.Size = 50Dim a As IntegerDim b As IntegerDim Swap As Integera =
2016-03-24 17:13:14 189
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人