當前位置:首頁 » 編程軟體 » vb在線編程

vb在線編程

發布時間: 2023-06-08 10:33:45

『壹』 vb如何編程

Option Explicit
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim S As String, S1 As String, S2 As String
Dim I As Integer, J As Integer
Dim G As Integer, Hw As Boolean, Find As Boolean
S = Text1.Text
Text1.Text = Text1 + vbCrLf
S1 = S
G = 0
Do While S1 <> ""
Find = False
For I = 1 To Len(S1)
If Mid(S1, I, 1) = " " Or I = Len(S1) Then
Find = True
S2 = Trim(Left(S1, I))
If I = Len(S1) Then S1 = "" Else S1 = Right(S1, Len(S1) - I)
For J = 1 To Len(S2) \ 2
If Mid(S2, J, 1) <> Mid(S2, Len(S2) - J + 1, 1) Then
Hw = False
Exit For
End If
Hw = True
Next
If Hw Then
G = G + 1
Text1.Text = Text1 + " " + S2
End If
End If
If Find Then Exit For
Next
Loop
Text1.Text = Text1.Text + vbCrLf + "共有"穗山 + Str(G) + "個畝型迴文串"
End If
End Sub
已經運行過了,沒問題!即使串與串之間多輸入幾個空格也不影響猜耐中查找!

『貳』 VB怎麼編程

Visual
Basic程序設計主要採用的是基於對象(主要是COM和ActiveX)和基於事件處理的可視化編程工具。在VB的IDE中通過可視化設計和布局窗口界面,並處理對象的事件代碼。
VB可以編寫任意Windows平台上的應用程序,但不包括Win32
Console
Application,到了.NET以後就例外了。
總的來說,VB的特點是簡單易學、入門簡單、操作方面、開發速度快等等。

『叄』 vb編程超簡單

PrivateSubCommand1_Click()
Text2.Text=""
Text2.Text=Text2.Text+Text1.Text
Fori=0To2
IfOption1(i).Value=TrueThen
Text2.Text=Text2.Text+Space(3)+"職稱:"+Option1(i).Caption+Space(3)
Else
Option1(i).Enabled=False
EndIf
Nexti
Text2.Text=Text2.Text+"愛好:"
Fori=0To2
IfCheck1(i).Value=1Then
Text2.Text=Text2.Text+Check1(i).Caption+Space(1)
Else
Check1(i).Enabled=False
EndIf
Nexti
Text2.Text=Text2.Text+Space(2)+"籍貫:"+List1.List(List1.ListIndex)+Space(3)
Text2.Text=Text2.Text+"部門:"+Combo1.Text
EndSub

PrivateSubCommand2_Click()
End
EndSub

PrivateSubForm_Load()
Option1(0).Caption="初級"
Option1(1).Caption="中級"
Option1(2).Caption="高級"
Check1(0).Caption="音樂"
Check1(1).Caption="體育"
Check1(2).Caption="繪畫"
List1.AddItem"北京市"
List1.AddItem"江蘇省"
List1.AddItem"江西省"
List1.AddItem"山東省"
List1.AddItem"山西省"
List1.AddItem"浙江省"
List1.AddItem"遼寧省"
List1.AddItem"天津市"
List1.AddItem"湖南省"
List1.AddItem"河北省"
List1.AddItem"上海市"
List1.AddItem"廣東省"
Combo1.AddItem"電子系"
Combo1.AddItem"數學系"
Combo1.AddItem"計算機系"
Combo1.AddItem"物理系"
Combo1.AddItem"化學系"
Combo1.AddItem"天文系"
Combo1.AddItem"地質系"
Combo1.AddItem"醫學系"
Text1.Text=""
Text2.Text=""

EndSub

PrivateSubFrame1_Click()
Fori=0To2
IfOption1(Index).Value=FalseThenOption1(Index).Enabled=False
Nexti
EndSub

熱點內容
學精通資料庫 發布:2023-10-01 17:43:42 瀏覽:2
c語言取絕對值的函數 發布:2023-10-01 17:42:44 瀏覽:203
付費解壓縮 發布:2023-10-01 17:42:01 瀏覽:107
少兒編程培訓管理系統 發布:2023-10-01 17:33:05 瀏覽:729
python判斷文件存在 發布:2023-10-01 17:32:26 瀏覽:756
c語言函數執行時間 發布:2023-10-01 17:10:39 瀏覽:314
java二維數組的遍歷 發布:2023-10-01 17:07:53 瀏覽:325
腳本精靈要怎麼用 發布:2023-10-01 17:07:04 瀏覽:874
寶馬x3與x4配置哪些不一樣 發布:2023-10-01 16:54:53 瀏覽:59
汽車編程收入 發布:2023-10-01 16:15:51 瀏覽:525