Private Sub Command1_Click()
Dim CenterX As Single, CenterY As Single
Dim R As Integer, X As Single, Y As Single, i As Integer
Const pi = 3.1415926
Randomize
R = 2000
CenterX = Me.ScaleWidth / 2: CenterY = Me.ScaleHeight / 2
For i = 0 To 355 Step 5
X = CenterX + R * Cos(i * pi / 180)
Y = CenterY - R * Sin(i * pi / 180)
Me.ForeColor = QBColor(Int(Rnd() * 15))
Me.CurrentX = X: Me.CurrentY = Y
Me.Print "*"
Next
End Sub
vbzhong怎样用星号画一个空心圆
手机版 我的知道 vbzhong怎样用星号画一个空心圆 15 VB程序设计:怎样用星号画一个圆用vb编码... VB程序设计:怎样用星号画一个圆用vb编码 展开 我来答 分享 微信扫一扫 新浪微博 QQ空间 举报 浏览14 次 可选中1个或多个下面的关键词,搜索相关资料。也可直接点“搜索资料”搜索整个问题。 zhong 星...
VB中怎样用星号画一个圆
Option ExplicitPrivate Sub Command1_Click()Dim CenterX As Single, CenterY As SingleDim R As Integer, X As Single, Y As Single, i As IntegerConst pi = 3.1415926RandomizeR = 2000CenterX = Me.ScaleWidth \/ 2: CenterY = Me.ScaleHeight \/ 2For i = 0 To 355 Step 5X = ...
在VB中这个怎么用(*)星号打出这种图形
用print语句 计算出星的位置和个数然后打出来
怎么用VB星号输出这个形状???、 *** *** *** *** ** *
觉得String(i,"*")不习惯，可以用常规的 For i = 1 To 6 '行数 For j = 1 To 7 - i '列数，随着i变大j变小 Print "*";Next j Print '换行 Next i
vb用*号 打印输出图形
intRowNumber = 5 '画菱形部分 For i = 1 To intRowNumber If i < intRowNumber \/ 2 Then For j = 1 To intRowNumber - i - 2 strOutput = strOutput + " " 'msgbox里一个星号的宽度是两个空格宽度，所以这里加两个空格,如果用别的方法输出看情况修改 Next j For j = 1 To...
怎样用VB实现下面的图案
公式改成N\/2-i：得到3，2，1，0，-1，-2，-3，只差后半段的符号了 abs(N\/2-i)：3，2，1，0，1，2，3，ok得到公式了 同理，星号个数是：1，3，5，7，5，3，1 公式N\/2-abs(N\/2-i)：0，1，2，3，2，1，0 (N\/2-abs(N\/2-i))*2+1：1，3，5，7，5，3，1，ok ...
VB中如何引用星号
该字符前键入波形符(~)。VisualBasic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。“Visual”指的是开发图形用户界面(GUI)的方法——不需编写大量代码...
如何在vb中用星号打出心形
Private Sub Command1_Click() Print " ** **" Print "*** ***" Print "***" Print " ***" Print " ***" Print " ***" Print " ***" Print " **"End Sub'请参考采纳！谢谢！
vb怎么用星号组成数字
i + 1, 1) = "1", True, False)NextEnd SubPrivate Sub Set_Label2(ByVal n As Integer)Dim str1 As StringSelect Case n Case 0 str1 = "0000000" Case 1 str1 = "0010010" Case 2 str1 = "1011101" Case 3 str1 = "1011011" Case 4 str1 ...
vb怎样打出“*”号倒三角形来?
可以参考下面的代码：Private Sub Command1_Click()Dim i As Long, j As Long Dim strTemp As String, strXing As String For i = 0 To 3 strXing = ""For j = 1 To (7 - Abs(i) * 2)strXing = strXing & "*"Next strTemp = Space(Abs(i)) & strXing & Space(Abs(i))Pr...
