用VB编写一个无参数Sub过程Triangle，在窗体上输出用“*”组成的如下图所示的三角形图案。
*
* * *
* * * * *
* * * * * * *
* * * * * * * * *
Call Triangle(6)
End Sub
Private Sub Triangle(N As Integer)
Dim i As Integer
Me.Cls
For i = 1 To N
Print Tab(N - i + 1); String(2 * i - 1, "*")
Next
End Sub本回答被提问者采纳
用VB编写一个无参数Sub过程Triangle,在窗体上输出用“*”组成的如下...
Private Sub Triangle(N As Integer)Dim i As Integer Me.Cls For i = 1 To N Print Tab(N - i + 1); String(2 * i - 1, "*")Next End Sub
1. 设计三个图形类:Circle(圆)、Rectangle(矩形)、Triangle(三角...
If i = 11 Then Timer1.Enabled = False End Sub
vb三角形判断
Label1 = "等边三角形"ElseIf a = b Or b = c Or a = c Then Label1 = "等腰三角形"Else Label1 = "任意三角形"End If Else Label1 = "不能构成三角形"End If End Sub
用VB编写一个过程,以此求解方程3X+5Y=100的正整数解,将结果输出到窗体上...
Private Sub Form_Click()Dim x As Integer Dim y As Integer Dim z As Double For x = 1 To 100 z = (100 - 3 * x) \/ 5 For y = 1 To 100 If y = z Then Print x; 0; y End If Next y Next x End Sub 可以改下输出 ...
1、编写一个程序根据输入的三角形的三条边判断是否能组成三角形,如果可 ...
1、Private Sub Command1_Click()Dim a, b, c As Integer a = Val(InputBox("边1"))b = Val(InputBox("边2"))c = Val(InputBox("边3"))If a + b > c And a + c > b And b + c > a Then Print "周长:" & a + b + c Else Print "不能构成三角形"End If End ...
用for循环做四个三角形。
\/\/输出 console.log(str);} } print(5);<\/script> 用java的for循环做一个等腰三角形 第1种方法：要用三循环才可以, 这个就是三角形的代码.public class Test { public static void main(String[] args) { for (int i = 1; i <= 7; i++) { for (int j = 1; j <= 7-i; j...
如何用VB做一个简单计算器 要求实现加减乘除乘方开方功能
如何用VB做一个简单计算器要求实现加减乘除乘方开方功能用0~9按钮实现类似WINDOWS系统自带的计算器最好带图最好有声明代码太多看着晃~... 如何用VB做一个简单计算器 要求实现加减乘除乘方开方功能 用0~9按钮实现 类似WINDOWS系统自带的计算器 最好带图最好有声明 代码太多 看着晃~ 展开 我来答 7个回答 ...
如何用VB编写一个开机自动运行得程序?
' psSubKey String 子键名' 输出: 无' 影响: glStatus Long 状态值 Dim llKeyID As Long '键ID glStatus = ERROR_SUCCESS '假设成功 '确定参数有效 If Len(psKey) = 0 Then '主键未设置 glStatus = REGAGENT_NOKEY Exit Sub End If '利用创建主键判断是否存在主键 glStatus = RegCreateKey(plKey, ...
vb中什么是对象的属性,事件和方法
设计图形用户界面通过窗体设计器来完成;而代码编辑器的作用就是用来编写应用程序代码。设计程序时,当用鼠标双击窗体设计器中的窗体或窗体上的某个对象时,代码编辑器将显示在VB集成环境中,见图1.4。 应用程序的每个窗体和标准模块都有一个单独的代码编辑器。 代码编辑器中有两个列表框,一个是“对象”列表框,另一...
如何用vb6.0编写记事本
If KeyCode = vbKeySpace Then RichTextBox1.SelFontName = CommonDialog1.FontName End If End Sub 至此,我们的记事本可以编译使用了。点击菜单“文件”-“生成XXX.EXE”,回到桌面运行我们的记事本看看,是不是颇有成就感? 当然,这样的记事本还比较粗糙,我们还需要做些工作,请看下一章。 第二章 美化程序界面...
