很简单的问题--取字符串中左边的N位 送分喽... 很简单的问题--取字符串中左边的N位 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 抢分!比如取s字符串左边的n位:left(s,n)楼主快快结贴! Dim S As StringDim n As IntegerS = "asdfasdfasdfasdgasdfg"n = 4Me.Text1.Text = Left(S, n)這樣的問題要把代碼寫全 Do Until 楼主结贴 If 我的分=0 Then Exit Do Else 我的分=我的分-n End IfLoopIf 我的分<=1 Then VeryAngryElseIf 我的分<=5 Then AngryElse SmileEnd If Dim S As StringDim n As IntegerS = "asdfasdfasdfasdgasdfg"Me.Text1.Text = Left(S, 5) Dim S As StringDim n As IntegerS = "asdfasdfasdfasdgasdfg"n = 4Me.Text1.Text = Left(S, n) / Me.Text1.Text = Mid(S,0,n) 抢分,left(string,n)为左,right(string,n)为右 left(字符串,个数)多看看MSDN的字符串处理就知道了 求教关于withevents及动态生成带事件的控件数组 OCX问题 奇遇:见帖子。 VB菜鸟求助…excel->access->excel…在线求助 怎样让一个窗体在启动时显示在右下角 向各位大虾们请教关于视频控制的问题 两个数据集能否相加??? 不算麻烦的问题 怎么修改注册表 比如在开机时加入某个程序 不要手动的 要在程序中实现 求助 --- 如何用VB来实现??? treeview 如何接合listview ListView大图标显示时如何让各项不能拖拽
比如取s字符串左边的n位:left(s,n)
楼主快快结贴!
Dim n As Integer
S = "asdfasdfasdfasdgasdfg"
n = 4
Me.Text1.Text = Left(S, n)
這樣的問題要把代碼寫全
If 我的分=0 Then
Exit Do
Else
我的分=我的分-n
End If
LoopIf 我的分<=1 Then
VeryAngry
ElseIf 我的分<=5 Then
Angry
Else
Smile
End If
Dim n As Integer
S = "asdfasdfasdfasdgasdfg"
Me.Text1.Text = Left(S, 5)
Dim n As Integer
S = "asdfasdfasdfasdgasdfg"
n = 4
Me.Text1.Text = Left(S, n) / Me.Text1.Text = Mid(S,0,n)