| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1162 人关注过本帖
标题:请教统计数目的问题
只看楼主 加入收藏
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
点菜单编辑器啊

快上课了……
2005-07-10 22:39
pang19821
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2005-7-3
收藏
得分:0 

谢谢大家了!!! Private Sub Command4_Click() '点命令按纽.执行下列代码 Dim filename1 As String ' 定义一个字符串变量 Dim fsomes As New FileSystemObject, txtmes As TextStream '创建 FSO 对象的一个实例 dia1.ShowOpen '打开对话框, filename1 = dia1.FileName '将对话框选取的路径给字符串 Set txtmes = fsomes.OpenTextFile(filename1, ForReading) '通过FSO 对象的一个实例读取文件,并把文件内容送给文本框,text2 Text2.Text = txtmes.ReadAll txtmes.Close '关闭 Exit Sub End Sub

Private Sub Form_Load() '添加Windows XP Blue风格 BSE1.SchemeStyle = 0 BSE1.EndSubClassing BSE1.InitSubClassing End Sub Private Sub Combo1_Change()

End Sub Private Sub Command1_Click() '点命令按纽.执行下列代码 Dim a As String Dim m As Integer '定义am为字符串变量 Dim c As Integer '定义c为整形变量

a = Text2.Text 'a得到text2中输入的内容 m = 0 c = Len(a) 'c得到a的长度.计字符个数 If a = "" Then '判断a是否为空. Text1.Text = 0 '为空是,在text1中输出0 Else '不为空是执行下面6行代码 For i = 1 To c '循环c次,即有几个字符,就判断几次 If Mid(a, i, 1) = " " Then '判断如果a中的第i个字符为空格,让m加一. m = m + 1 While Mid(a, i, 1) = " " '如果a中的第i个字符为空格,就让i加一,直到i个字符不为空格为止, i = i + 1 Wend End If '判断结束 Next i '循环结束

Text1.Text = m + 1 '输出m的值 End If

End Sub

Private Sub Command2_Click() Text1.Text = "" Text2.Text = ""

End Sub

Private Sub Command3_Click() Unload Me

End Sub 我想再加上一点特色的,不知道该加点什么,大家给提点意见吧!!!

[此贴子已经被作者于2005-7-11 9:21:39编辑过]

2005-07-11 07:55
Oppenheimer
Rank: 1
等 级:新手上路
帖 子:52
专家分:0
注 册:2005-7-7
收藏
得分:0 
差点忘了,你得先做如下设置: "工程---引用---Microsoft Scripting Runtime."调用FSO对象模型.否则我原来说的全是错误的.

爱编程,也爱吃红萝卜.
2005-07-11 17:43
pang19821
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2005-7-3
收藏
得分:0 
谢谢,我已经设置好了
2005-07-12 08:05
大卸八块
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2005-7-10
收藏
得分:0 
ReDim 是个什么函数?
2005-07-14 22:16
大卸八块
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2005-7-10
收藏
得分:0 
ReDim 是个什么函数?
2005-07-14 22:17
loveve
Rank: 4
等 级:业余侠客
威 望:1
帖 子:452
专家分:213
注 册:2005-4-11
收藏
得分:0 
不是函数,是VB关键字。重新定义的意思。

五月的雪
2005-07-17 17:04
快速回复:请教统计数目的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018059 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved