设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › 如何用vb实现把文本文件中的横行换成竖行排列 ...

如何用vb实现把文本文件中的横行换成竖行排列

[复制链接]
查看11 | 回复0 | 2006-7-10 18:03:26 | 显示全部楼层 |阅读模式
举例：文本框名为txtSngInput,加法键名为cmdAdd,乘法键名为cmdMul,等于键为cmdOver。Dim sngTempDo(2) As Single '(0)存储操作符，(1)存储操作结果Private Sub cmdAdd_Click()Dim sngTemp As SingleSelect Case sngTempDo(0)Case 1 '加法txtSngInput.Text = CStr(CSng(txtSngInput.Text) + sngTempDo(1))Case 2 '乘法txtSngInput.Text = CStr(CSng(txtSngInput.Text) * sngTempDo(1))'Case 3 '减法'Case 4 '除法End SelectsngTempDo(1) = CSng(txtSngInput.Text)sngTempDo(0) = 1End SubPrivate Sub cmdMul_Click()Select Case sngTempDo(0)Case 1 '加法txtSngInput.Text = CStr(CSng(txtSngInput.Text) + sngTempDo(1))Case 2 '乘法txtSngInput.Text = CStr(CSng(txtSngInput.Text) * sngTempDo(1))'Case 3 '减法'Case 4 '除法End SelectsngTempDo(1) = CSng(txtSngInput.Text)sngTempDo(0) = 2End SubPrivate Sub cmdOver_Click()Select Case sngTempDo(0)Case 1 '加法txtSngInput.Text = CStr(CSng(txtSngInput.Text) + sngTempDo(1))Case 2 '乘法txtSngInput.Text = CStr(CSng(txtSngInput.Text) * sngTempDo(1))'Case 3 '减法'Case 4 '除法End SelectsngTempDo(1) = 0sngTempDo(0) = 0End SubPrivate Sub Form_Load()sngTempDo(0) = 0End Sub'========================================================以上的代码还没有写当你按下操作符以后，文本框的数字输入将变为重新开始。这个你可以设置一个Boolean变量a，初始化为Ture，每个数字键按下事件中写上：if a = ture thena = flasetxtSngInput.text = ""elsetxtSngInput.text = txtSngInput.text & 新的数字endif在txtsnginput的keypress事件中也是类似写法。然后在几个操作键的按下事件中添加令a=ture就可以了。
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行