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