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

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

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

Option Explicit Private Sub Command1_Click() Dim shui As Integer Dim gz As Integer gz = Val(Text1.Text) If gz

Private Sub Command1_Click()If Val(Text1.Text) > 7 Or Val(Text1.Text) < 1 Then MsgBox "有效数字输入范围1-7" Exit SubEnd IfText2.Text = Choose(Val(Text1.Text), "一", _ "二", "三", "四", "五", "六", "日")Text3.Text = Choose(Val(T...

x=Val(text1.text) select case x case 3,4 y=2x-6 case 5,6 y=计算函数 case 7,8 y=计算函数 case 9,10 y=计算函数 case else y=计算函数 end select text2.text =y

Private Sub Command1_Click() Dim a(65 To 90) As Integer Open "d:\xcopy.txt" For Input As #1 Do While Not EOF(1) Line Input #1, s For i = 1 To Len(s) x = UCase(Mid(s, i, 1)) If x >= "A" And x 0 Then Print Chr(i); ":"; a(i) End I...

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Dim a(5, 5) As Integer Dim iMax, iMin As Integer Private Sub Command1_Click() Dim i, j As Integer Dim s As String Cls Randomize iMax = 0 iMi...

if n>="A" And n="a" And n="0" And n

提供一个思路吧,毕竟我也没那么多时间码代码。 如果是练手的话还应该自己想,这样才能提高水平。如果是用来学习的话,可以自己去买本“xxx实例”,淘宝搜索vb 实例 即可,自己调一本就好。 ①可以通过timer,不断的调整label的top属性大小来实现渐...

答案:把横线换成 x=a (横线处代码意思就是在购物款小于等于500元时应该付多少购物款的问题)

VB考试完全不用考,那破证有什么用? 你感兴趣可以去学,但是不需要去考试。 因为几乎没哪家公司会因为你有个VB等级证书就招聘你,这玩意有毛用啊,我当年考了之后都没去拿证,一点屁用都没。真是浪费时间浪费钱(记得考试还要收费的)

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