ldcf.net
当前位置:首页 >> vB程序设计题,跪求大神解答...急,在线等....高分... >>

vB程序设计题,跪求大神解答...急,在线等....高分...

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

Private Sub Form_Click() Dim i As Integer Dim a(10) As Integer For i = 1 To 10 a(i) = Rnd * 100 Next Call Sortnum(a, 10) For i = 1 To 10 Print a(i); Next Print Print "Max:" & MaxNum(a, 10) Print "Ave:" & AveNum(a, 10) End Sub F...

Private Sub Command1_Click()List1.AddItem Text1.Text, 0End SubPrivate Sub Command2_Click()List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command3_Click()Dim i As Integeri = List1.ListIndexList1.RemoveItem iList1.AddItem Tex...

Private Sub Command1_Click() Dim t As Integer, m As Single Do t = Val(InputBox("输入上网时间,-1为停止")) If t = -1 Then Exit Do Select Case t Case Is 300 Then m = 300 MsgBox "上网费用=" & Round(m, 2) & "元" Loop End Sub Privat...

现在还有人用vb

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...

去掉 open 后面等于号。 cn.Open "DRIVER={SQL SERVER};SERVER=XROS;UID=sa;PWD=sa;DATABASE=jiaoxuedb"

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

不同的通讯方式,是指不同的开发软件么? 同一种开发软件,比如VB,其内部的编程方式是一致的,不论你想要做什么。 不同的开发软件,其编程的方式可能不一致,比如VB和C两种语言,他们的编程方式是不一样的。

Private Sub Command1_Click() '调用实例 Dim str As String MsgBox return_str(5) End Sub Private Function return_str(number As Integer) As String '通用函数 Dim str As String For i = 1 To number Dim str_temp As String str_temp = ""...

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