×

vb基础代码

vb基础代码(vb基础代码)

admin admin 发表于2023-03-10 03:16:27 浏览65 评论0

抢沙发发表评论

本文目录

vb基础代码


form1.show打开窗口1

form2.hide隐藏窗口2

unload form2 关闭窗口2

MsgBox(prompt[, buttons] [, title] [, helpfile, context])对话框

prompt为内容

buttons(看下面的图)

title消息框标题

Helpfile 可选的。字符串表达式,识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile,则也必须提供 context。 

Context 可选的。数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context,则也必须提供 helpfile。


VB常用代码


form
窗体的意思,像form和command这样的单词是控件的名称,名称是控件的属性之一,可以在屏幕右侧的属性列表中加以修改,找到name这一行,在右侧键入自己想要的名字即可,不必记忆,至于LostFocus..MouseUp是一些事件的名称,有必要记忆。下面写一些常用的。
lostfocus失去焦点
getfocus得到焦点
load装载
unload卸载
mousedown按下鼠标
mouseup松开鼠标
mousemove移动鼠标
dragover拖拽鼠标
dragdrop拖拽后松开鼠标
click单击
dblclick双击
keydown键盘按下
keyup键盘松开
keypress按键盘顶敞侈缎侬等畴劝川滑
change变换
key的那三个的区别你以后会学的。
建议你去买本书看看吧
那个比较专业一点

VB用的基本语句有哪些


VB程序中的一行代码称为一条程序语句,简称为语句。语句是构成程序的基本单位,是执行具体操作的指令,每条语句以ENTER键结束。基本语句有:

1、 注释语句

注释不仅仅是对程序的解释,有时它对于程序的调试也非常有用,譬如说可以利用注释屏蔽一条语句以观察变化,发现问题和错误。注释语句是我们在编程里最经常用到的语句之一。

在VB里,注释语句有两种,一种是用“Rem”关键字,这跟DOS里的批处理文件的用法一样,还有一种是利用单引号“’”,例如:‘Dim a As String与Rem Dim a As String的作用是一致的。

2、长语句的分行

在比较早的版本中,因为没有象C等语言用“;”隔开语句与语句,VB的语句是必须写在一行里的,不过在VB之后的版本里可以用分行符“_”把一个长语句分成若干行来存放。

3、条件语句

VB的条件语句更符合英语的语法,如果Then后面所跟的语句只有一条,可以写成:

条件1

True/False

语句1

条件2

True/False

语句2

条件3

True/False

条件N

True/False

语句N

4、循环语句

循环结构是计算机语言里一种重要的结构,它的应用广泛,最简单的例子是累加器的作用,还可以用于穷举法,更直观的例子是把某件事重复指定的次数,这样就不用把要重复的语句输入多次,而通过循环结构完成,非常方便。

C语言里有一个“for”循环语句,VB里也有“For”关键字,作用也差不多,只是VB的“For”语句更容易理解。它的格式是:

For《循环变量》=《初赋值》To《终值》[Step《步长》]

Next《循环变量》

在默认情况下,Step被设为“1”,可以省略,Step也可以设为负值,例如:

Dim a=0

For I=1 To10

a=a+ I

Next I

5、While语句

While后面都跟逻辑条件判断,“Do While……Loop语句”和“While……Wend语句”作用相似,都是先判断While后面的条件是否为“真”,如果为“真”则执行里面的语句,如果为“假”,则退出循环,循环直至条件为“假”终止。

“Do……Loop While”与前两者的区别在于,它不管条件的真假,都会先执行“Do”后面的语句,也就是说,它至少执行语句一次。

6、Until语句,它是直至条件为真则终止循环,句式把While上述三个语句的While换成Until即可,但是因为容易记混,所以我建议只用While即可。Until《条件》可以相当于While Not《条件》。

For循环和Whlie循环应当根据适当的环境使用,它们有时也可替换。


基础的VB代码


在学Msgbox之前,还有许多基础的你应该先学。
比如变量常量,数据类型,运算操作,各种控制语句(条件语句、循环语句等)、过程与函数、熟悉常用控件等等。
建议你买本书看,这样学的系统点,基础扎实。

vb的简单代码,


’所有控件在Form_Load中,4个text,6个标签,1个按钮
Option Explicit
Dim lngTime As Long, lngNN As Long, lngMax As Long
Private Sub Command1_Click()
Randomize
Timer1.Enabled = True
lngTime = 60
Label3.Caption = “剩余时间:“ & lngTime & “秒“
Command1.Enabled = False
initTxt
lngNN = 0
End Sub
Private Sub Form_Load()
Text1.Text = ““
Text2.Text = ““
Text3.Text = ““
Text1.Locked = True
Text2.Locked = True
Command1.Caption = “开始“
Timer1.Interval = 1000
Label1.Caption = “+“
Label2.Caption = “=“
Label3.Caption = ““
Label4.Caption = “加数最大值为:“
Label5.Caption = ““
Label6.Caption = ““
Timer1.Enabled = False
lngMax = Val(Text4.Text)
End Sub
Private Sub initTxt()
Text1.Text = Int((lngMax * Rnd) + 1)
Text2.Text = Int((lngMax * Rnd) + 1)
Text3.Text = ““
Text3.SetFocus
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(Text1.Text) + Val(Text2.Text) = Val(Text3.Text) Then
lngNN = lngNN + 1
Label5.Caption = “√“
Label6.Caption = “正确“ & lngNN & “道“
Else
Label5.Caption = “ד
End If
Open App.Path & “\test.txt“ For Append As #1
Print #1, Text1.Text; “+“; Text2.Text; “=“; Text3.Text
Close
initTxt
ElseIf KeyAscii 《 48 Or KeyAscii 》 57 Then
KeyAscii = 0
End If
End Sub
Private Sub Text4_Change()
If Len(Text4) Then
If Not IsNumeric(Text4.Text) Then
lngMax = 100
Text4.Text = lngMax
Else
lngMax = Val(Text4.Text)
End If
End If
End Sub
Private Sub Timer1_Timer()
lngTime = lngTime - 1
Label3.Caption = “剩余时间:“ & lngTime & “秒“
If lngTime = 0 Then
Command1.Caption = “继续“
Command1.Enabled = True
Timer1.Enabled = False
Text1.Text = ““
Text2.Text = ““
Text3.Text = ““
Label5.Caption = ““
Open App.Path & “\test.txt“ For Append As #1
Print #1, Label6.Caption
Close
End If
End Sub

vb基础代码:输入数值在text1中,点击command1 输出text2=text1*130 text3=text1*35


private
sub
command1_click()
Text2
=
Format(Val(Text1.Text)
*
0.13,
“0.####“)
’小数点后位数
自己设置,这里非零值保留4位
Text3
=
Format(Val(Text1.Text)
*
0.035,
“0.####“)
’小数点后位数
自己设置,这里非零值保留4位
end
sub

vb最最最基础的代码


这不是一两句能搞定的事情
去百度文库搜索vb基础,有很多教程可以学习
------------------------------
代码的解释,你可以通过安装MSDN
Library
Visual
Studio
6.0
(CHS)这是Vb6.0的msdn,这个帮助已经很强大了。
vb有自己的命令关键字,语法,这是需要记忆的
你应该先阅读vb基础,一步步来,否则就算你问的问题有深度,但你无甚基础,给你解释你也不一定能理解
学习从来都不是一蹴而就的事。
---------------------------
你问的这些问题,数组是什么意思啊
控件有什么用,vb基础里面都有。