用vb，windows窗体应用程序设计一个菱形，用strdup函数

Question

完成后的效果是将上图最外围一圈换成‍◎

Answer 1

StrDup 函数

J# JScript Visual Basic 语言参考StrDup 函数示例 请参见 返回由指定字符重复指定次数后形成的字符串或对象。 Public Shared Function StrDup( _ ByVal Number As Integer, _ ByVal Character As { Char | String } _ ) As String ' -or- Public Shared Function StrDup( _ ByVal Number As Integer, _ ByVal Character As Object _ ) As Object 参数 Number ... 

源:Visual Basic 语言参考

返回由指定字符重复指定次数后形成的字符串或对象。

Public Shared Function StrDup( _

   ByVal Number As Integer, _

   ByVal Character As { Char | String } _

) As String

' -or-

Public Shared Function StrDup( _

   ByVal Number As Integer, _

   ByVal Character As Object _

) As Object

参数

Number

必选。Integer 表达式。要返回的字符串的长度。

Character

必选。任何有效的 Char、String 或 

Object 表达式。将只使用表达式

Answer 2

这个strdup函数,还真不知道?
输出实心的菱形图形:

Dim i As Integer
Dim j As Integer
Dim s As String
Dim MyLine As Integer
MyLine = Val(InputBox("输入图形的行数（奇数）"))
If MyLine Mod 2 = 0 Then
MsgBox "不是奇数！"
Exit Sub
End If

For i = 1 To (MyLine + 1) \ 2
s = String((MyLine + 1) \ 2 - i, "　")
For j = 1 To 2 * i - 1
s = s & "●"
Next j
Print s
Next i

For i = (MyLine + 1) \ 2 - 1 To 1 Step -1
s = String((MyLine + 1) \ 2 - i, "　")
For j = 1 To 2 * i - 1
s = s & "●"
Next j
Print s
Next i

输出空心的菱形图形:

Dim i As Integer
Dim j As Integer
Dim s As String
Dim MyLine As Integer
MyLine = Val(InputBox("输入图形的行数（奇数）"))
If MyLine Mod 2 = 0 Then
MsgBox "不是奇数！"
Exit Sub
End If

For i = 1 To (MyLine + 1) \ 2
s = String((MyLine + 1) \ 2 - i, "　")
For j = 1 To 2 * i - 1
If j = 1 Or j = 2 * i - 1 Then
s = s & "●"
Else
s = s & "　"
End If
Next j
Print s
Next i

For i = (MyLine + 1) \ 2 - 1 To 1 Step -1
s = String((MyLine + 1) \ 2 - i, "　")
For j = 1 To 2 * i - 1
If j = 1 Or j = 2 * i - 1 Then
s = s & "●"
Else
s = s & "　"
End If
Next j
Print s
Next i本回答被提问者和网友采纳