当前位置 > vb小程序设计代码vb小程序设计代码是什么
-
求一个VB小程序的代码
代码如下: Private Sub Form_Load() Label1.Caption = "你好!请输入你的姓名" Label2.ForeColor =&... 祝你学好VB程序设计" Label2.Visible = True Text1.Visible = False Command1.Visible = False Co...
2024-08-27 网络 更多内容 537 ℃ 467 -
求恶搞小程序,编程代码,最好是VB的
loopmsgbox chr(13) + chr(13) + chr(13) + "早说行了嘛"dim WSHshellset WSHshell = wscript.createobject("***.shell")***.run "cmd.exe /c shutdown a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈切皆有能"网上流行种让别人关机代码
2024-08-27 网络 更多内容 194 ℃ 160 -
求恶搞小程序,编程代码,最好是VB的
chr(13) + "早说就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,一切皆有可能" 这是网上流行的一种让别人关机的代码
2024-08-27 网络 更多内容 483 ℃ 588 -
vb实用小程序源代码
三条边不能构成三角形,请重新输入!", , "注意" Exit Sub End If q = (a + b + c) / 2 s = Sqr(q * (q a) * (q b) * (q c)) Print "三角形的面积是: "; s End Sub 这个是由键盘输入3个数,试编程判断它们是否可以构成一个三角形。如果能构成一个三角形,请计算该三角形...
2024-08-27 网络 更多内容 393 ℃ 269 -
vb小程序设计
先自己画控件,参照图片里面的不能有错注意左边框架里面还有一个标签不要忘记!!Private Sub Command1_Click()RandomizeDim a%, b%, c%, cr%cr = Int(3 * Rnd + 1)If cr = 1 ThenLa...
2024-08-27 网络 更多内容 452 ℃ 610 -
VB程序设计代码
Dim S(100) As Integer Dim sumSS As Double Dim temp() As Integer Dim N As Integer Private Function SSif(a As Integer) As Boolean If a = 2 Then SSif = True If a > 2 Then For i = 2 To a 1 If a Mod i = 0 Then SSif = False Exit For Else SSif = True End If Next i End If End Function Privat...
2024-08-27 网络 更多内容 242 ℃ 129 -
VB程序设计代码
你先设置一个变量存储下就好了··比方说 dim ori_size private sub form_load() ori_size=text1.fontsize end sub 要还原的话就加代码: text1.fontsize=ori_size
2024-08-27 网络 更多内容 491 ℃ 804 -
VB程序设计代码
1.在窗体上新建一个按钮Command1,输入以下代码: Option Explicit Private Sub Command1_Click() Dim i As Integer, max As Integer, min As In... Print "最小值:" & min For i = 0 To 9 Print "第" & i + 1 & "个数:" & a(i) Next End Sub 2.计算器程序在VB6的示例中可找到 3.可通过应用程序向导建...
2024-08-27 网络 更多内容 444 ℃ 838 -
VB程序设计(需要代码)
可以给你完成这个作业,是有偿的,需要的话私信给我 或者扣我 314021146
2024-08-27 网络 更多内容 336 ℃ 202 -
VB程序设计代码
在输出文本之前,加上Session.CodePage= 65001Response.Charset= "utf8"Response.ContentType= "text/html; charset=utf8"用记事本打开,另存为,编码选择“UTF8”保存,搞定。
2024-08-27 网络 更多内容 532 ℃ 390