怎么反转这个？ vb.net [英] how to invert this? vb.net

问题描述

  Dim  i，j，n  As  整数 
n =  5  
i =  1  
 TextBox1.TextAlign = Horizo​​ntalAlignment.Right 
  直到i> = n 
i + =  1  
j =  1  
  直到j> ; = i 
 TextBox1.Text = TextBox1.Text&   * 
j + =  1  
 循环 
 TextBox1.Text = TextBox1.Text& vbCrLf 
 循环 
 

输出：

*

**

***

****

*****



问题：如何反转这个?? ..

解决方案

试试：

< pre lang =vb> Dim sb As New StringBuilder（）
对于 i 作为 整数 = 5 1 步骤 -1
对于 j As 整数 = 0 i - 1
sb.Append（ *）
下一页
sb.Append（vbCr& vbLf）
下一步
TextBox1.Text = sb.ToString（）

Dim i, j, n As Integer
       n = 5
       i = 1
       TextBox1.TextAlign = HorizontalAlignment.Right
       Do Until i >= n
           i += 1
           j = 1
           Do Until j >= i
               TextBox1.Text = TextBox1.Text & " *"
               j += 1
           Loop
           TextBox1.Text = TextBox1.Text & vbCrLf
       Loop

output:
*
**
***
****
*****

question: How to invert this??..

解决方案

Try:

Dim sb As New StringBuilder()
For i As Integer = 5 To 1 Step -1
	For j As Integer = 0 To i - 1
		sb.Append(" *")
	Next
	sb.Append(vbCr & vbLf)
Next
TextBox1.Text = sb.ToString()

这篇关于怎么反转这个？ vb.net的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！