99问答网
所有问题
当前搜索:
VB代码
vb 代码
翻译
答:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)'Text1的键盘按下事件 Static i As Integer '声明变量i If KeyCode = 13 Then '如果按下回车 If (Text1.Text) = "abcd" Then '如果Text1中的内容是abcd Label2.Caption = "你已成功进入" 'Label2显示 ElseIf i < 3 Then...
vb
:简易计算器(加减乘除)
代码
答:
代码
如下:Dim t, t1 As Integer Dim x, y As Double Public Sub com()x = Val(l1.Caption)Select Case t1 Case Is = 1: y = y + x Case Is = 2: y = y - x Case Is = 3: y = y * x Case Is = 4: y = y / x End Select t1 = 0 t = 0 l1.Caption = "0"...
VB
6.0三个数排序完全
代码
答:
Private Sub Command1_Click()a = Val(InputBox("请输入第一个数:"))b = Val(InputBox("请输入第二个数:"))c = Val(InputBox("请输入第三个数:"))s = "输入的三个数为:" & a & ", " & b & ", " & c & vbCrLf If a > b Then t = a: a = b: b = t If a ...
vb代码
中&表示什么
答:
1:代表字符串连接,如:A$="abc" & "123"2:它是长整型的类型符,如:a& = 1234567890 代表a为长整型。3:还有一个特殊地方,十六进制常数,如:X = &HFFFF&,“&H”和“H”之间为十六进制数,如这里X值为十六进制的FFFF,即十进制的65535。4、注意,学过C语言的
VB
初学者会以为是逻辑与...
VB
在哪里写入
代码
答:
VB
在
代码
编辑器窗口编写代码。代码编辑器窗口是编写应用程序的 Visual Basic 代码的地方。代码由语句、常数和声明部分组成。使用代码编辑器窗口,可以快速查看和编辑应用程序代码的任何部分。要打开代码窗口,请双击要编写代码的窗体或控件。- 或 - 从“工程管理器”窗口,选定窗体或模块的名称,然后选取“...
请人解说一下这段
VB代码
,我新手,30分哦!!
答:
1、SelCount是选中的个数,Selected(X)=True是某一项是否被选中 While LstLeft.SelCount > 0意思是LstLeft选中的个数大于0则开始循环 至于是用SelCount还是Selected(X)要根据实际需要决定 2、用两个循环嵌套,保证LstLeft中每一个被选中的都移动到LstRight中,Exit For的作用就是每删除一项就再从头检查...
VB
编程
代码
以什么语句开头
答:
在
VB
里没有说写
代码
要有特定的开头,无非是一些初始化用的 如定义选项 Option 定义变量 Dim 定义常数 Const 等. 然后就是写好一些控件的事件子程序,如有需要,再写上一些自定义的函数或子程序.如果是想学习VB的话,建议先学习一点基础入门的知识吧!
求在
VB
中编写显示、清除、结束
代码
答:
举例来讲,比如通过Command1、2、3,分别来显示Text1,清除Text1文本和窗体打印,结束
代码
,如下:Private Sub Form_Load()Text1.Visible = False 'Text1隐藏 End Sub Private Sub Command1_Click()Text1.Visible = True 'Text1显示 End Sub Private Sub Command2_Click()Text1.Text = "...
VB代码
求助
答:
窗体上放三个文本框:text1,text2,text3 ,分别用来输入身高,显示标准体重和显示合理范围。放一个组合框 combo1 用来选择性别,一个按钮 command1 计算按钮,复制
代码
:Private Sub Command1_Click()Dim x As Integer Dim sH As Integer '身高 sH = Val(Text1.Text)If sH < 40 Or sH > 250...
vb
中的combo的
代码
怎么写?
答:
Private Sub Command1_Click()Randomize Text1 = Int(Rnd * 100)Text2 = Int(Rnd * 100)Combo1.ListIndex = Int(Rnd * 4)If Text2 = "0" And Combo1.ListIndex = 3 Then Text2 = Int(Rnd * 100)End Sub Private Sub Command2_Click()a = Val(Text1)b = Val(Text2)op = ...
棣栭〉
<涓婁竴椤
2
3
4
5
6
7
8
9
10
11
涓嬩竴椤
灏鹃〉
其他人还搜