vb显示编程
‘壹’ 求做vb程序，用vb6.0编程，有效程序不少于50行，程序能够显示自己的信息
ImportsSystem.Runtime.InteropServices
ImportsSystem.Math
#Region"stringhhh"
#EndRegion
PublicClassForm1
PublicjishuqiAsInteger
Subshellsort(ByRefa()AsSingle)'希尔排序算法,对数组a进行排序
Dimi,j,gapAsInteger
Dimk,x,nAsInteger
n=UBound(a)
gap=Int(n/2)
Whilegap>0
Fori=gap+1Ton
j=i-gap
Whilej>0
Ifa(j)<a(j+gap)Then
x=a(j)
a(j)=a(j+gap)
a(j+gap)=x
j=j-gap
Else
j=0
EndIf
EndWhile
Nexti
gap=Int(gap/2)
EndWhile
EndSub
PrivateFunctionpaixu(ByValstAsString)AsString
DimiAsInteger,tempAsInteger,lengAsInteger=Len(st),tempstAsString=""
Dima(leng)AsInteger
Fori=1Toleng
a(i)=Asc(Mid(st,i,1))
Nexti
Fori=1TolengStep1
Forj=1Toleng-iStep1
Ifa(j)>a(j+1)Then
temp=a(j+1)
a(j+1)=a(j)
a(j)=temp
EndIf
Nextj
Nexti
Fori=1Toleng
tempst=tempst&Convert.ToChar(a(i)).ToString
Next
Returntempst
EndFunction
DimxAsInteger=0
DimyAsInteger=0
DimzAsInteger=0
DimswitchAsInteger=1
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
Me.Text="颜色变幻"
TextBox1.ReadOnly=True
TextBox2.ReadOnly=True
TextBox3.ReadOnly=True
Timer1.Start()
ComboBox1.SelectedIndex=0
EndSub
PrivateSubTimer1_Tick(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesTimer1.Tick
Ifswitch=1Then
Ifx<255Then
x=x+1
EndIf
If(x=255)And(y<255)Then
y=y+1
EndIf
If(y=255)And(z<=255)Then
z=z+1
EndIf
If((x=255)And(y=255)And(z=255))Then
switch=0
TextBox1.Text="zd"
TextBox2.Text="zd"
TextBox3.Text="zd"
EndIf
Else
Ifx>0Then
x=x-1
EndIf
Ifx=0Andy>0Then
y=y-1
EndIf
Ify=0Andz>0Then
z=z-1
EndIf
If((x=0)And(y=0)And(z=0))Then
switch=1
EndIf
EndIf
TextBox1.Text=x.ToString
TextBox2.Text=y.ToString
TextBox3.Text=z.ToString
PictureBox1.BackColor=Color.FromArgb(x,y,z)
PictureBox1.Refresh()
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimx%,x1%,x2%,x3%,t%
x=Val(TextBox4.Text)
x1=xMod10
x2=(xMod100)10
x3=x100
TextBox2.Text=x1.ToString&""&x2.ToString&""&x3.ToString
t=x1*100+x2*10+x3
Label1.Text=t
EndSub
PrivateSubTextBox5_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)HandlesTextBox5.KeyPress
'IfInt(e.KeyChar)<48OrInt(e.KeyChar)>56Thene.KeyChar=ChrW(0)
'Ife.KeyChar=1Thene.KeyChar=0
Ife.KeyChar="0"Ore.KeyChar="1"Ore.KeyChar="2"Ore.KeyChar="3"Ore.KeyChar="4"Ore.KeyChar="5"Ore.KeyChar="6"Ore.KeyChar="7"Ore.KeyChar="8"Ore.KeyChar=ChrW(0)Then
TextBox5.Text=TextBox5.Text&e.KeyChar
Else
e.KeyChar=ChrW(0)
EndIf
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
DimgAsGraphics=Me.CreateGraphics
DimmBrushAsNewSolidBrush(Color.Red)
DimmFontAsNewFont("宋体",18)
g.DrawString("测试",mFont,mBrush,800,10)
EndSub
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
Me.Dispose()
EndSub
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
DimshapeAsNewSystem.Drawing.Drawing2D.GraphicsPath
shape.AddEllipse(0,0,Me.Width,Me.Height)
Me.Region=NewSystem.Drawing.Region(shape)
EndSub
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click
DimiAsInteger
i=Shell("C:WINDOWSsystem32cmd.exe",1)
TextBox6.Text=i.ToString
EndSub
PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.Click
DataGridView1.Rows.Add(1,"asdddddddd",123)
EndSub
PublicFunctionDiamond(ByValnumAsInteger)AsString
Dimi,jAsInteger,stAsString=""
If(numMod2=0)Then
Return""
EndIf
'输出上三角形
Fori=1To(num+1)2
Forj=1To(num+1)/2-i
st=st&""
Next
Forj=1To2*i-1
st=st&"*"
Next
st=st&vbCrLf
Next
'输出下三角形
Fori=1To(num-1)2
Forj=1Toi
st=st&""
Next
Forj=1Tonum-2*i
st=st&"*"
Next
st=st&vbCrLf
Next
Returnst
EndFunction
PublicFunctionIsSushu(ByValpaAsInteger)AsBoolean
DimpbAsInteger=pa-1
DimresAsBoolean=True
Fori=2Topb
IfpaModi=0Then
res=False
ExitFor
EndIf
Nexti
Returnres
EndFunction
PrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.Click
DimstrAsString=""
DimnAsInteger
n=0
Fori=2To100
IfIsSushu(i)Then
str=str&i&""
n+=1
IfnMod5=0Then
str=str&vbCrLf
EndIf
EndIf
Next
TextBox6.Text=str
EndSub
PrivateSubButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton8.Click
DimnumberAsInteger,sAsInteger,mystrAsString=""
DoWhile(number<1000)
s=0
Fori=1Tonumber-1
If(numberModi)=0Thens=s+i
Nexti
Ifnumber=sThen
mystr=Str(s)+"的因子是："
Fori=1Tos-1
If(sModi)=0Then
mystr=mystr+Str(i)+";"
EndIf
Nexti
TextBox6.Text=mystr
EndIf
number=number+1
Loop
EndSub
DimcountAsInteger=10
PrivateSubTimer2_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer2.Tick
count=count-1
Ifcount>0Then
TextBox6.Text="倒计时计数:"&count
Else
TextBox6.Text="倒计时计数:时间到"
Timer2.Stop()
EndIf
EndSub
PrivateSubButton9_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton9.Click
EndSub
PrivateSubTimer3_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer3.Tick
Randomize()
StaticmAsSystem.Random
m=NewRandom(Now.Millisecond)
TextBox6.Text=m.Next(0,100)
EndSub
PrivateSubListBox1_SelectedIndexChanged(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesListBox1.SelectedIndexChanged
EndSub
PrivateSubHScrollBar1_ValueChanged(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesHScrollBar1.ValueChanged
TextBox6.Text=HScrollBar1.Value
EndSub
EndClass
‘贰’ 如何在VB中实现“显示程序代码”
text1.Text = "Private Sub Command1_Click()" & Chr(10) & _
"Dim n As Integer" & Chr(10) & _
"n = Val(text1.Text)" & Chr(10) & _
"Text2.Text = Fact(n)" & Chr(10) & _
"End Sub"
------
如果代码中有引号什么的，就用chr（）转换一下
‘叁’ VB编程中实现输入和显示同步
双击输入框，默认进入change 事件，输入代码:另一个文本框的name.text=输入框的name
‘肆’ VB显示当前时间的程序
加入以下代码：
Private Sub Form_Load()
Text1.Text = Now
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Text1.Text = Now
End Sub
(4)vb显示编程扩展阅读：
VB获取系统当前时间并格式化输出
用到的函数：
Date函数：返回系统的日期
Now函数：返回系统的日期和时间
Format函数：根据格式表达式来格式化数据
实例：
Private Sub Form_Load()
'设置同步时间显示
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Format(Now, "hh:mm:ss") '获取当前时间
Label4.Caption = Format(Now, "yyyy-mm-dd") '获取当前日期
Label6.Caption = Format(Now, "yyyy-mm-dd hh:mm:ss") '日期和时间
End Sub
‘伍’ 用vb如何编程
连了数据库没啊，还是读的txt？囧 啥也没讲清楚。。等楼主来。。详细说明把
‘陆’ vb编程怎么显示f
不管接收变量是传地址的或传值的(a)都是传值，(a)表示传a的值，a变量不会因为接收变量是传地址的而在过程或函数中被改变。
a在接收变量是传地址时，可能会在过程或函数中被改变。
f((a),a)只是调用一个函数或过程，可能需要在前加call看函数可过程的具体位置。
‘柒’ vb6命令按钮如何编程来显示函数图象
Sub Form_Click ()
Dim CX, CY, Msg, XPos, YPos ' Declare variables.
ScaleMode = 3 ' 设置 ScaleMode 为像素。
DrawWidth = 5 ' 设置 DrawWidth. ForeColor = QBColor(4) ' 设置前景为红色。
FontSize = 24 ' 设置点的大小。
CX = ScaleWidth / 2 ' 得到水平中点。
CY = ScaleHeight / 2 ' 得到垂直中点。
Cls ' 清窗体。
Msg = "Happy New Year!" CurrentX = CX - TextWidth(Msg) / 2 ' 水平位置。
CurrentY = CY - TextHeight(Msg) ' 垂直位置。
Print Msg ' 打印消息。
Do XPos = Rnd * ScaleWidth ' 得到水平位置。
YPos = Rnd * ScaleHeight ' 得到垂直位置。
PSet (XPos, YPos), QBColor(Rnd * 15) ' 画五彩碎纸。
DoEvents ' 进行
Loop ' 其它处理。
End Sub
可以在支持这个PsET的所有控件上使用绘图语句，建议在picture中放置位图坐标图像，并在图像中绘制即可有坐标
‘捌’ VB编程的程序
DimjlAsString
PrivateSubct_Click()
Text1.FontBold=True
EndSub
PrivateSubqc_Click()
Text1.Text=""
EndSub
PrivateSubsl_Click()
jl=InputBox("请输入相关信息","输入信息")
EndSub
PrivateSubtc_Click()
End
EndSub
PrivateSubxhx_Click()
Text1.FontUnderline=True
EndSub
PrivateSubxs_Click()
Text1.Text=jl
EndSub
PrivateSubxt_Click()
Text1.FontItalic=True
EndSub
PrivateSubzc_Click()
Text1.Font.Size=10
Text1.FontBold=False
Text1.FontUnderline=False
Text1.FontItalic=False
EndSub
PrivateSubztdx_Click()
Text1.FontSize=20
EndSub
http://www.namipan.com/d/
程序下载地址
‘玖’ 怎么看VB代码、又怎么编写代码
要看VB代码，首先得知道这些代码是什么意思，所以要先学习和了解VB函数及使用及操作方法。
建议先看几本VB编程的书，如：Visual Basic 程序设计 康丽军 吴红萍主编 北京大学出版社 这本书讲的很基础，感觉比较适合初学者。
学习了基本的函数后，就可以对照书中的实例，编写自己的程序了。比如，一个简单的例子。
点击按钮，显示对话框：
1，打开VB，新建程序，然后在窗体中添加一个Command1控件。
2，点击Command1，添加代码：Msgbox "你好！"
3，点击即可。
4，代码编写完毕。
*VB6.0全称为VisualBasic 6.0，是微软公司推出的可视化编程工具之一，是目前世界上使用最广泛的程序开发工具。
‘拾’ 如何用vb编程使自己的程序窗口显示在最顶层
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST& = -1
' 将窗口置于列表顶部，并位于任何最顶部窗口的前面
Private Const SWP_NOSIZE& = &H1
' 保持窗口大小
Private Const SWP_NOMOVE& = &H2
' 保持窗口位置
Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
' 将窗口设为总在最前
End Sub