www问答网
所有问题
当前搜索:
100个vb精彩小程序源码实例
有趣的
vb小程序
答:
小球四壁碰撞
程序
、弹球游戏程序之类的,或者是人工智能【比如问“年龄”,就回答几岁】之类,这些简单、实用、有趣
vb
实用
小程序源代码
答:
Private Sub mianji()Dim a As Single, b As Single, c As Single a = Val(InputBox("请输入三角形的边a:", "输入"))b = Val(InputBox("请输入三角形的边b:", "输入"))c = Val(InputBox("请输入三角形的边c:", "输入"))If (a + b) <= c Or b + c <=a Or a + ...
一
个VB小程序的源代码
~~~帮忙注释一下!!!高分!!在线等!!
答:
Option Explicit Private Sub Command1_Click() '通过对话框选择图片装载到Image1图像框 CDlg.FileName = ""CDlg.ShowOpen If CDlg.FileName <> "" Then Image1.Picture = LoadPicture(CDlg.FileName)End If End Sub Private Sub Command2_Click()Data1.Recordset.AddNew '新增记录 End Sub Pr...
vb
有意思的
小程序
?
答:
这个
程序
运行后,在窗体上单击,窗体就会变形,双击窗体程序结束。要注意的是,在卸载窗体时,用DeleteObject函数删除已定义的区域。
vb程序
设计
实例100
答:
试题一.1 Private Sub Form_Click()Print fs_sum(
100
)End Sub Function fs_sum(ByVal n As Integer) As Single Dim s!, nc! '和与倒数 s=0 For i = 1 To n nc = 1 / i s = s + nc Next i fs_sum = s End Function 试题一.2 Private Sub Form_Click()For i = 1 To ...
用
VB
写一
个小程序
.
答:
vb6代码如下,添加模块,工程--属性--启动对象选择sub main Sub main()Open "c:\temp\25.txt" For Input As #1 Clipboard.Clear Clipboard.SetText StrConv(InputB(LOF(1), 1),
vb
Unicode)End Sub
谁给我一个用
VB
6.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
编写一个简单的
小程序
?
答:
在桌面上,鼠标左键双击
程序
,在打开的VB6主界面上,左边是工具菜单栏,单击标签按钮,在Form1窗口上,绘制出一Label1,然后在其属性窗口上改个名字,如Caption为第一数,如下图所示。接着,用同样的方法,在Form1窗口上绘制出第二数,并且在左边工具菜单栏,单击文本框按钮,并绘制出来。在文本框属性...
请用
vb
编写一个找出10000以内的亲密数对的
小程序
答:
需要两个函数,一个因子和计算,一个因子和输出。程序窗体放置一个文本框,设置其MultiLine为True。
源程序
如下:Option Explicit Dim I As Long, J As Long, X As Long Private Sub Form_Load()Me.Show For I = 1 To 10000 DoEvents X = Yzh(I)If X <= 10000 And I < X Then If Yzh...
求
个vb
聊天
程序源代码
答:
Dim Tmp As String Winsock1.GetData Tmp,
vb
String '取得数据 Tmp = "对方IP地址:" + Winsock1.RemoteHostIP + "发送内容为-->" + Tmp txtMess.Text = Tmp + Chr$(13) + Chr$(10) + txtMess.Text '换行输出聊天信息 End Sub语句超简单,我用了几小时才弄出。
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb程序设计实例100
用vb编写简单小程序实例
vb小程序设计实例
一个简单的vb小程序
vb简单小程序教程
有趣的vb小程序代码
vb简单小程序制作教程
vb抽奖小程序代码
vb设计小程序