寻求会用vb做vb小程序序的人，有事相求。434728642

来源：蜘蛛抓取(WebSpider) 时间：2012-12-03 14:59 标签： vb小程序
求一个VB小程序_百度知道
求一个VB小程序
处理TXT文档1.删除数字，符号，以及数字符号后面的空格2.保留汉字和汉字后面的空格
请把源程序给我，谢谢
提问者采纳
想要源程序，先要给资料：1. 文档内容2. 处理后的文档内容
只要文字，和文字后面的回车，3Q
open &文件& for input as #1while not eof(1)line input #1,sif asc(left(s,1))&0 then text1.text=text1.text & s & vbcrlf
'只取首字符是汉字的行wendclose #1
提问者评价
其他类似问题
14人觉得有用
小程序的相关知识
其他5条回答
200分我帮你做,给你源程序
100分我帮你做
dim i ,j,si =1 to 10
j = 1 to iif j = 1*i
s = i*j thentext irespot s
很好做的，你看看书就会了这是最基本的
什么都没有，怎么做
您可能关注的推广回答者：回答者：回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求帮忙用VB编辑小程序——只需要有添加，删除功能，还有上移下移（进来看图片）_百度知道
最重要的是还要详细代码坐等VB高人出现问题补充：本人新手 菜鸟如果Picture控件 和Timer 控件各一个，其中Picture控件用来加载图片 Private Sub
其他类似问题
小程序的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求用VB随机排座位的小程序
求用VB随机排座位的小程序 15
我们班有69个人，网上搜到的代码如下，helpme！！！！！！！在界面上建个按钮，叫cmdDo。 建标签的控件数组，名称是lblSeat，Index是0～30。 lblseat是甚么东东？截图！代码：
Private Sub cmdDo_Click() Dim num(30) As Integer '学号 Dim i
As Integer, temp As Integer '给学号赋值，现在就用的是1、2、……、31
'定义成Integer是因为写循环比较方便，也可定成String '可以按你们班的实际学号情况赋值 For i = 0 To 30
num(i) = i + 1 Next Dim a Randomize Timer
'按座位号循环，为指定的座位抽一个学号 For i = 30 To 0 Step -1 a = Rnd lblSeat(i) =
num(Int(a * (i + 1))) '把用过的学号换到数组的后面 temp = num(i) num(i) =
num(Int(a * (i + 1))) num(Int(a * (i + 1))) = temp Next End Sub
lblSeat是控件名
&
label控件的数组形式，你在IDE里，也就是设计器那里选取一个LABEL，然后CTRL+C,CTRL+V就可以创建一组控件了，当你操作这一组控件的时候用数组下标的形式操作lblSeat[0]...lblSeat[30]这样子就可以了
的感言：xiexie
其他回答 (1)
lblseat(i)其实就是label控件数组，在窗体上添加一个label
然后在属性里面把label的名称改为lblseat
index设置为0
这样就是一个控件数组了，然后在复制这个控件，再在窗体上粘贴出你需要的个数就行了
相关知识等待您来回答
编程领域专家大一刚开始修VB，期末作业要求做个小程序，价钱好说，具体如下_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：51,496贴子：
大一刚开始修VB，期末作业要求做个小程序，价钱好说，具体如下收藏
是一个类似于闹钟的电脑提醒系统，可设置时间，到时间弹出窗口，做的简单点就好，如可以，请联系我，QQ：
Dim a As Long Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub Private Sub Form_Load()Timer1.Interval = 1000Timer1.Enabled = FalseEnd Sub Private Sub Timer1_Timer()a = a + 1
If a = Text1.Text ThenMsgBox "时间到了"End IfEnd Sub
vb.net这样做。添加一个textbox，一个timer，一个button。Public Class Form1
Dim a As Long
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If a = TextBox1.Text Then
MsgBox("时间到了")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = False
Timer1.Interval = 1000
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End SubEnd Class
楼上你闹哪样？我还想赚点话费花花。
我有空，愿意接这样的活，加我的Q,
路过'曾经也上大学
登录百度帐号我的游戏推荐游戏
后查看最近玩过的游戏
为兴趣而生，贴吧更懂你。或我用vb做了不少小程序。现在正在学习c++，但为什么不会设置网络连接，网络路由器密码，帮个忙谢谢_百度知道
我用vb做了不少小程序。现在正在学习c++，但为什么不会设置网络连接，网络路由器密码，帮个忙谢谢
还不会用photoshop进行平面设计
提问者采纳
这不属于一个领域的，干IT这东西贵精不贵多，千万别什么都会什么都不太会，感觉自己哪方面兴趣最浓就着重学哪方面吧，其他的当个爱好了解一下还是可以的。
提问者评价
谢谢了，对我用处很大！！！！
其他类似问题
网络路由器的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 vb小程序 的文章

 

随机推荐