Question

一道VB初学者的题目

nu = InputBox("nu=")
n$ = Str$(nu)
p = InStr(n$, ".")
If p > 0 Then
Print Mid$(n$, p)
Else
Print "end"
End If
End Sub

谁能详细和我说下每天语句的意思和这段程序的作用 谢谢了

Answer 1

这段代码的功能是首先让你输入一段字符、数字。
如果你输入的是带小数的数字，则返回小数部分，否则显示“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

Answer 2

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

Answer 3

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

Answer 4

第一句：输入一个数 并把该数赋予nu
第二句：将数据nu转换成字符串（含符号位）
第三句：Instr((n,)x,"字符") 从x的第n个位置起查找给定的字符串，返回该字符串在x中的位置，n的缺醒值为1
第四句：如果p>0那么执行下列语句
第五句：输入字符串第p位的字符
第六句：否则
第七句：结束
这段程序主要是找出p的值 其他的都是一些基础的知识

Answer 5

整段程序应该是找小数点"."的问题。
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,如果存在小数点,那么找出并显示小数点及小数点后面的内容

好了，详细的不能再详细了，采纳吧