简单的vb小程序代码
用vb编一个小程序
'在窗体中画一个PICTUREBOX控件，并加载图片——你的那朵花 '画2个COMMAND按钮 Private Sub Command1_Click() '按一下按钮在窗体中随机打印一个图像 Dim curX As Long, curY As Long '当前打印位置 Randomize '开始参数随机数 curX = Rnd() * Me.ScaleWidth curY = Rnd() * Me.Sc...
在线求大家帮忙做一个VB粘贴的小程序..先谢谢了
form_keydown...select case ascii case...open app.path &"\\text1.text" for input as #1 line input #1,c cli...setdata c close case...end select end sub 参考资料：open
VB,帮我在每行的后面翻译这个小程序,我交作业,要求尽量详细
lRet = SystemParametersInfo(SPI_GETWORKAREA, vbNull, apiRECT, 0) '调用api将窗口值写入自定义结构，并返回是否成功。If lRet Then '返回非零则执行 Label1.Caption = "宽: " & apiRECT.Right - apiRECT.Left & " 高: " & apiRECT.Bottom - apiRECT.Top '成功则写出到标签 Else '...
想设计一个简单的vb程序,高手帮忙
用记事本保存以下内容 名为 名字.frm 希望能追加一些分数·毕竟手动 运用到 转换小写 和一些简单的东西 2个list 3个按钮 2个文本框 VERSION 5.00 Begin VB.Form Form1 Caption = "Form1"ClientHeight = 2895 ClientLeft = 60 ClientTop = 450 ClientWidth = 4515...
有趣的vb小程序
小球四壁碰撞程序、弹球游戏程序之类的，或者是人工智能【比如问“年龄”，就回答几岁】之类，这些简单、实用、有趣
用vb制作小程序——时钟
打开你的vb程序，添加一个标准工程，如图，单机打开 待你进行编程的界面 添加三个line控件，一个timer控件，一个shape控件，（双击控件即可添加一个）修改timer的属性，在右侧的属性窗口内。也可以单机小时钟，此时右面属性栏显示为如图示的项目。进行编辑就可以了。把ennabled修改为true，interval修改为1000...
VB小程序段: FOR I=18.9 TO –2.5 STEP –0.5 :N=N+1:NEXR I 循环执行...
计算出来的答案应该是43 首先没有步进-0.5之前18.9算一次 然后可以将18.9-(–2.5) 也就是21.4 21.4\/0.5=42 因为0.4小于0.5不能执行，所以这里只有42次 这里说明18.9和-2.5之间可以步进-0.5的话可以减42次 在加上原先18.9的一次总共43次 ...
谁给我一个用VB6.0写的整人小程序啊
下面这些代码是一个小小的整人程序： Private Sub Form_Load()Me.Left = -10000 Me.Top = -10000 Do While 1 = 1 Me.Visible = Not Me.Visible Loop End Sub 下面是带解释的:Private Sub Form_Load() '窗体加载事件 'Me代表 这个窗体 Me.Left = -10000 '设置这个窗体的左边与屏幕的左边...
请大侠高手帮忙写个VB小程序,简单点的谢谢了!
贪吃蛇代码 键个新的窗体不用放控件代码考进去直接运行就行了 Option Explicit Private WithEvents Timer1 As Timer Private WithEvents Label1 As Label Dim GFangXiang As Boolean Dim HWB As Single Dim She() As ShenTi Dim X As Long, Y As Long Dim ZhuangTai(23, 23) As Long Private ...
求一个VB编写的单位换算小程序
把下列代码复制到一个文本文件当中，并且重命名为：1.frm。打开运行即可。VERSION 5.00 Begin VB.Form Form1 Caption = "Form1"ClientHeight = 5040 ClientLeft = 60 ClientTop = 450 ClientWidth = 9450 LinkTopic = "Form1"ScaleHeight = 5040 ScaleW...
华容县青坦回答： Private Sub Command1_Click() Dim a As Integer, b As Integer, s As String MsgBox ＂我记住一个数,你根据我的提示猜猜是这个数是几＂ Randomize a = Int(Rnd * 100) s = InputBox(＂写出你猜的数＂) Do While s ＂＂ b = Val(s) If a ...
衅霍15311652763问： 如何使用VB编写一个简单的小程序 - ？
华容县青坦回答： 打开vb,选择新建工程,标准exe,点击运行启动,就看见一个窗体.这就是最简单的vb程序.然后点击运行结束,视图,代码窗口,粘贴如下代码:Private Sub Form_Load() MsgBox (＂你好!＂) End Sub 点击运行启动,就看到一个新的效果 祝你成功!
衅霍15311652763问： 帮我做个 VB 小程序?(很简单的)代码怎么写?？
华容县青坦回答： Private Declare Function GetDriveType Lib ＂kernel32＂ Alias ＂GetDriveTypeA＂ (ByVal nDrive As String) As Long Private Sub timer1_timer()For i = Asc(＂C＂) To Asc(＂Z＂) If GetDriveType(Chr(i) + ＂:＂) = 2 ThenMsgBox ＂插入了可移动...
衅霍15311652763问： 很简单的一个vb小程序,高手快来啊! - ？
华容县青坦回答： 简单 下面是全部代码: '在form1上添加一个CommandButton,命名为Command1 '把文本框的PasswordChar属性设为* Option Explicit Private Sub Command1_Click() If cspw.Text = ＂z1z1z1z1＂ Then Shell ＂C:\pr袱浮递簧郛毫店桐锭昆ogram ...
衅霍15311652763问： 求一个vb小程序代码(简单)! - ？
华容县青坦回答： 清空回收站代码 Private Declare Function SHEmptyRecycleBin Lib ＂shell32.dll＂ Alias ＂SHEmptyRecycleBinA＂ _ (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long Private Declare Function ...
衅霍15311652763问： 用VB写一个小程序. - ？
华容县青坦回答： vb6代码如下,添加模块,工程--属性--启动对象选择sub mainSub main() Open ＂c:\temp\25.txt＂ For Input As #1 Clipboard.Clear Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)End Sub
衅霍15311652763问： 求高手做几段简单的VB小程序？
华容县青坦回答： Private Sub Command1_Click() s = Val(InputBox(＂输入底面积＂)) h = Val(InputBox(＂高＂)) r = Val(InputBox(＂地面半径＂)) V = 1 / 3 * s * h ' S是底面积,h是高,r是底面半径 Print ＂圆锥的体积为＂; V End Sub Private Sub Command2_Click()...
衅霍15311652763问： 怎样用 VB 制作个简单的小程序 - ？
华容县青坦回答： form1上放置Command1,Timer1,Picture1(装入一个图片) Dim MoveStep As Integer Private Sub Command1_Click() Timer1.Enabled = False End Sub Private Sub Form_Load() MoveStep = 100 End Sub Private Sub Timer1_Timer() If Picture1....
衅霍15311652763问： 急求:VB作业.要一个特别简单的小程序及代码……呜呜呜……我给加分啊……？
华容县青坦回答： #include<stdio.h> void Minsert(int a[],int Len){ int i,j,low,high,m,b; for(i=2;i<=Len;i++){ a[0]=a[i]; low=1; high=i-1; while(low<=high){ m = (low+high)/2; if(a[0]<a[m]) high=m-1; else low=m+1; } for(j=i-1;j>=high+1;j--) a[j+1]=a[j]; a[high+1]=a[0]; } for(b=1;b<=...
衅霍15311652763问： 求一个VB 小游戏代码 越简单越好谁帮忙写一个 网站上复制的不要 - ？
华容县青坦回答： Private Sub Form_Click() Dim p As POINTAPIDim Px As Integer Dim Py As Integer Call GetCursorPos(p)Px = CInt(ScaleWidth * Rnd) Py = CInt(ScaleHeight * Rnd) If Px + 500 > ScaleWidth Then Px = Px - 550 ElseIf Px - 500 < 0 Then Px = Px + ...
