- 博客(7)
- 收藏
- 关注
RSS订阅原创 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关注的人