一道VB初学者的题目
nu=InputBox("nu=")n$=Str$(nu)p=InStr(n$,".")Ifp>0ThenPrintMid$(n$,p)ElsePrint"end"End...
nu = InputBox("nu=")
n$ = Str$(nu)
p = InStr(n$, ".")
If p > 0 Then
Print Mid$(n$, p)
Else
Print "end"
End If
End Sub
谁能详细和我说下每天语句的意思和这段程序的作用 谢谢了 展开
n$ = Str$(nu)
p = InStr(n$, ".")
If p > 0 Then
Print Mid$(n$, p)
Else
Print "end"
End If
End Sub
谁能详细和我说下每天语句的意思和这段程序的作用 谢谢了 展开
展开全部
这段代码的功能是首先让你输入一段字符、数字。
如果你输入的是带小数的数字,则返回小数部分,否则显示“End”
nu = InputBox("nu=") ‘显示输入框,把输入框的结果赋值到nu变量
n$ = Str$(nu) ‘把nu变量的值转换成字符串赋值到变量n
p = InStr(n$, ".") ’在n中查找字符“.”,把字符“.”在n中的位置赋值到变量p
If p > 0 Then ‘如果p>0 就表示在n中找到了字符“.”
Print Mid$(n$, p) ‘打印n中的第p个字符到字符串的结尾
Else
Print "end"
End If
End Sub
如果你输入的是带小数的数字,则返回小数部分,否则显示“End”
nu = InputBox("nu=") ‘显示输入框,把输入框的结果赋值到nu变量
n$ = Str$(nu) ‘把nu变量的值转换成字符串赋值到变量n
p = InStr(n$, ".") ’在n中查找字符“.”,把字符“.”在n中的位置赋值到变量p
If p > 0 Then ‘如果p>0 就表示在n中找到了字符“.”
Print Mid$(n$, p) ‘打印n中的第p个字符到字符串的结尾
Else
Print "end"
End If
End Sub
2011-03-22 · 知道合伙人软件行家
关注
展开全部
nu = InputBox("nu=") '获得inpputbox输入框的内容
n$ = Str$(nu) '将nu转换成文本类型的数据
p = InStr(n$, ".") '查找n中的最先出现的"."的位置p
If p > 0 Then '如果p>0,表示n中包含"."
Print Mid$(n$, p) '输出n中小数点和小数点后面的内容
Else
Print "end" '否则输出"end"
End If
End Sub
n$ = Str$(nu) '将nu转换成文本类型的数据
p = InStr(n$, ".") '查找n中的最先出现的"."的位置p
If p > 0 Then '如果p>0,表示n中包含"."
Print Mid$(n$, p) '输出n中小数点和小数点后面的内容
Else
Print "end" '否则输出"end"
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
nu = InputBox("nu=") '取得一个输入值 nu (一个带小数的数值 例如 123.456)
n$ = Str$(nu) '将 un 转换成字符型 n
p = InStr(n$, ".") '尝试从字符型 n 中定位小数点的位置 p
If p > 0 Then '如果有小数点
Print Mid$(n$, p) '显示字符型 n 中小数点及小数部分的字符
Else '否则
Print "end" '显示 end
End If
n$ = Str$(nu) '将 un 转换成字符型 n
p = InStr(n$, ".") '尝试从字符型 n 中定位小数点的位置 p
If p > 0 Then '如果有小数点
Print Mid$(n$, p) '显示字符型 n 中小数点及小数部分的字符
Else '否则
Print "end" '显示 end
End If
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
第一句:输入一个数 并把该数赋予nu
第二句:将数据nu转换成字符串(含符号位)
第三句:Instr((n,)x,"字符") 从x的第n个位置起查找给定的字符串,返回该字符串在x中的位置,n的缺醒值为1
第四句:如果p>0那么执行下列语句
第五句:输入字符串第p位的字符
第六句:否则
第七句:结束
这段程序主要是找出p的值 其他的都是一些基础的知识
第二句:将数据nu转换成字符串(含符号位)
第三句:Instr((n,)x,"字符") 从x的第n个位置起查找给定的字符串,返回该字符串在x中的位置,n的缺醒值为1
第四句:如果p>0那么执行下列语句
第五句:输入字符串第p位的字符
第六句:否则
第七句:结束
这段程序主要是找出p的值 其他的都是一些基础的知识
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
整段程序应该是找小数点"."的问题。
nu = InputBox("nu=")这句弹出inputbox对话框,返回字符串nu。
里面的("nu=")是提示内容,随便写,也可以写成“请输入字符串数据”等。
n$ = Str$(nu)是把inputbox对话框返回的nu值转化成字符型数据
p = InStr(n$, ".")这个函数是说在字符型数据n中寻找小数点 ".",返回的p值是小数点在n中的位置序号。
If p > 0 Then
Print Mid$(n$, p)
Else
Print "end"
End If
这一段是说如果不存在小数点,那么Print "end"打印end,如果存在小数点,那么找出并显示小数点及小数点后面的内容
好了,详细的不能再详细了,采纳吧
nu = InputBox("nu=")这句弹出inputbox对话框,返回字符串nu。
里面的("nu=")是提示内容,随便写,也可以写成“请输入字符串数据”等。
n$ = Str$(nu)是把inputbox对话框返回的nu值转化成字符型数据
p = InStr(n$, ".")这个函数是说在字符型数据n中寻找小数点 ".",返回的p值是小数点在n中的位置序号。
If p > 0 Then
Print Mid$(n$, p)
Else
Print "end"
End If
这一段是说如果不存在小数点,那么Print "end"打印end,如果存在小数点,那么找出并显示小数点及小数点后面的内容
好了,详细的不能再详细了,采纳吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询