Dim strdx() As String = {"0", "0", "0"} '定义个数组,从后面的值能看的出最大下标是2,也就是strdx(0),strdx(1)和strdx(2),3个的默认值都为0
Dim calcount1 As String = "0" '定义个字符串变量
Dim calcount2 As String = "0"
Dim strvalue As Boolean = False '定义strvalue为bool值,改类型变量只有true和false 2种值
If strdx(0) = "0" Then
TextBox1.Text = strdx(0) &"." &这是字符串连接符号,和"+"的区别是,他把左右2边的内容直接连接的,而"+"可能会编程运算符,例如 2 &3 = "23" 而 2 + 3 = 5
ElseIf strvalue = False Then
strdx(0) = strdx(0) &"0"
TextBox1.Text = strdx(0) &"."
strvalue = True
Else
strdx(0) = strdx(0) &"0"
TextBox1.Text = strdx(0)
Select Case calcount1 ' 这里开始是分支语句
Case "+"
TextBox1.Text = Str(Val(strdx(1)) + Val(strdx(0)))
这个其实跟桃形或者心形(另一问题中提到的)其实是一个程序,改一下花瓣的半径就可以了。请看图
通过圆心的垂直线的距离为半径
圆心右侧垂直线的距离为半径
圆心左侧垂直线的距离为半径
过圆上左极点垂直线的距离为半径
与上次的桃形绘图的代码差异只有一句
函数百度:StrReverse函数 描述返回一个字符串,其中一个指定子字符串的字符顺序是反向的。语法StrReverse(string1)参数string1是一个字符串,它的字符顺序要被反向。如果string1是一个长度为零的字符串(""),则返回一个长度为零的字符串。如果string1为Null,则产生一个错误。
典型的例子是用strReverse函数生成回文数。
例如 StrReverse(i)=i 这就是判断i是否为回文数的一个VB语句
text1.text=StrReverse("abcd")
返回:“dcba