急求！VB设计程序，在窗体上显示一个几何图形，如图所示。 一道vb程序设计题目{急求答案}

for i=1 to 8‘循环
?space(8 - i) & string(i, "*")’输出图形
next‘结束

VB编写程序，在窗体上输出如图所示的图形~

Private Sub Command1_Click()Dim i, j As IntegerFor i = 1 To 9 Step 2Print Spc(3 + i);For j = 10 - i To 1 Step -1Print "* ";NextPrint " ";For j = 1 To iPrint "* ";NextPrintNextEnd Sub

Private Sub Form_Load()
Text1.Left = 0
Text1.Top = 0
Text1.Width = Me.ScaleWidth / 2
Text1.Height = Me.ScaleHeight / 2
Command1.Left = Me.ScaleWidth - Command1.Width
Command1.Top = Me.ScaleHeight - Command1.Height
End Sub

Private Sub Form_Resize()
Text1.Width = Me.ScaleWidth / 2
Text1.Height = Me.ScaleHeight / 2
Command1.Left = Me.ScaleWidth - Command1.Width
Command1.Top = Me.ScaleHeight - Command1.Height
End Sub

Private Sub Command1_Click()
End
End Sub


额，你还别说，我看错成左下角了。呵呵
没错，需要改一下。

...下面这个程序:从键盘上输入字符时,在窗体上显示出所键入的字符和该...
答：Private Sub Form_KeyPress(KeyAscii As Integer)Print "Ascii: " & KeyAscii & ", 字符:" & Chr(KeyAscii)End Sub

...程序运行时,单击“显示”命令按钮,在窗体上显示1000以为个位数_百 ...
答：均匀排列 代码如下：Private Sub Command1_Click()Dim i As Integer Dim j As Integer Dim k As Integer Dim a(5) As String i = 5 k = 0 For j = 1 To 1000 i = i + 5 If i Mod 3 = 0 And Right(CStr(i), 1) <> 0 Then k = k + 1 If i < 1000 Then a(k) =...

...立即在窗体上输出当前文本框中的内容。实验步骤及指导如下
答：Private Sub Text1_Change() ’这个表示是Text1_Change()事件，本行表示事件过程的开始 Print Text1 '这个表示在窗体上显示Text1 的文本内容 End Sub '本行表示事件过程的结束 --- Private Sub Text1_LostFocus() ’这个表示是Text1_LostFocus()事件，本行表示事件过程的开始 Print "...

...密码程序:当用户输入的密码正确时,在窗体上显示“欢迎您使用本系统...
答：Private Sub cmdOK_Click()Static interr As Integer Dim suser As String Dim spass As String suser = UCase$(Trim$(txtUser.Text))spass = Trim$(txtPassword.Text)If suser = "ADMIN" And spass = "123456" Then frmMain.Show Unload Me Else interr = interr + 1 If interr > 3 Then ...

用VB编程在窗体显示.需要设计个人简历、家庭等按扭来选择显示内容.可以...
答：'窗体中添加3个commandbutton,一个对话框控件 Dim str1 As String, str2 As String, str3 As String Private Sub Command1_Click()str1 = str2 Cls Print str1 End Sub Private Sub Command2_Click()str1 = str3 Cls Print str1 End Sub Private Sub Command3_Click()CommonDialog1.Flags...

2、用vb6.0设计一个程序,在窗体上的标签(label)中显示一行文字,文字...
答：首先：选中标签，在它的属性里面找到Font （后面一半默认是宋体），点一下Font，“宋体”后面出现省略号，点省略号，在弹出的对话框里改。然后：再双击窗体，输入 Private Sub Form_Load()Label1.BackColor = vbRed End Sub 然后点运行，就可以了 ...

在vb程序设计中,要求将窗体上显示的字改成红色黑体 30磅。该怎么做...
答：两种方法：鼠标点击。选中该窗体，在右边属性窗口的列表中有一项“Font”，点击“宋体”边的小按钮，会弹出字体设置对话框，还有一项“ForeColor”就是设置字体颜色的。编写代码：me.ForeColor = vbRed '红色 me.FontSize = 30 '30磅 me.FontName = "黑体" '黑体 ...

vb中怎么编写 单击命令按钮,则窗体显示文本框内的内容?
答：1、首先，双击窗体空白处进入代码窗口。2、然后我们在事件中找到Click事件。3、这个时候开始编写代码测试【Print "我是Click单击属性！"】。4、然我们开始运行测试。5、启动后，我们在窗体空白处单击。6、这个时候我们将可以看到测试的效果。

(vb程序设计)求缺少的代码:在窗体中显示有规律的图形(规律如下图所示...
答：Private Sub Command1_Click()Dim i%, k For i = 0 To 14 If i <= 7 Then k = i 'k控制每行打印字符个数及前面空格 Else k = 14 - i End If Print Space(8 - k);If i Mod 2 = 0 Then Print String(2 * k + 1, Chr(65 + k))Else Print String(2 * k + 1, ...

vb在窗体上同一行显示两个文本框的内容的代码。文本框内容中间用...
答：窗体放置一个Label和一个text，在复制黏贴text控件，建立text的控件数组。（如图）双击text控件，在Change事件中输入代码：Private Sub Text1_Change(Index As Integer)Label1.Caption = Text1(0).Text & "," & Text1(1).Text End Sub 运行，在text控件里随意删改可以得到效果。