kwrl.net
当前位置:首页 >> VB编程,在线等,急 >>

VB编程,在线等,急

Private Sub Command1_Click() Dim a(1 To 20) As Integer For i = 1 To 20 a(i) = i s = s + a(i) Next i For i = 1 To 20 If a(i) < 10 Then Print Space(2) & a(i) & Space(1); Else Print a(i); End If If i Mod 5 = 0 Then Print Next i Pr...

做好的例子 https://pan.baidu.com/s/1mhJJY1i

Private Sub Command1_Click() a = CInt(Text1.Text) b = CInt(Text2.Text) If b > a And b / a < 1.2 Then Label3.Caption = "警告,您的车速超过限速!" Else If b / a >= 1.2 And b / a < 1.5 Then Label3.Caption = "您的车速超过限速20%,...

s = _Chr____(KeyAscii) Case "A" ___to__ "Z" s = UCase(s)

'排列中的C(2,4)计算方法为4!/2!*(4-2)! Private Sub Command1_Click() Dim s As Integer '总比赛场次 s = 0 '小组赛循环 For i = 1 To 8 '8次循环 t = jc(4) / (jc(2) * jc(4 - 2)) s = s + t Next '淘汰赛 i = 16 '剩余的16个球队 Do While i ...

Private Sub About_Click() Text1.Visible = TrueEnd SubPrivate Sub Bold_Click() Text1.FontBold = TrueEnd SubPrivate Sub Eliminate_Click() Text1.Text = ""End SubPrivate Sub End_Click() EndEnd SubPrivate Sub Form_Load() Text1.Text ...

通过Keypress事件做,Keyascii是Ascii吗,通过按下键盘系统会检测到他的Ascii值,再把它转换成你想要替换的就行了,很简单,不想帮你写,自己动手丰衣足食吧。

我有一个,可以私信我

Dim t1 As Integer, t2 As Integer, sf As Integer, da As IntegerSub chuti()Randomizet1 = Int(Rnd * 90) + 10t2 = Int(Rnd * (t1 - 9)) + 10sf = Int(Rnd * 4)Select Case sfCase 0 Label1.Caption = t1 & " + " & t2 & " = " da = t1 + t2Ca...

这个是填空,代码呢?

网站首页 | 网站地图
All rights reserved Powered by www.kwrl.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com