VB中有重复字符的函数吗?我想补充空格,实现固定的长度.

[woookaooo]

VB中有重复字符的函数吗?我想补充空格,实现固定的长度.
例如用一个函数实现字符"a"重复5次形成"aaaaa".

[pigpag]

有的
String()函数

String(重复次数 As Integer, 字符 As String)

[tanyx]

ss=ss & string(80-len(ss)," ")

[TaoHuang]

加入i個空格:
i=50-len(ss)
ss=ss & space(i)

[zyl910]

LSet 语句


在一字符串变量中将一字符串往左对齐，或是将一用户定义类型变量复制到另一用户自定义类型变量。

语法

LSet stringvar = string

LSet varname1 = varname2

LSet 语句的语法有下面这些部分：

部分 说明
stringvar 必要参数。字符串变量名称。
string 必要参数。在 stringvar 内想往左对齐的字符串表达式。
Varname1 必要参数。用户自定义类型变量名，内容将复制进来。
Varname2 必要参数。用户自定义类型变量名，内容将复制出去。


说明

Lset 会将 stringvar 中空余的字符以空白替换。

如果 string 比 stringvar 还长，Lset 只在 stringvar 中放置最左边几个字符，且长度为 stringvar 的长度。

警告 不能使用 Lset 将一用户自定义类型变量复制到另一用户自定义类型变量。将一个数据类型的数据复制到留给另一数据类型的空间，可能会造成不可预料的结果。

当从一用户自定义类型复制一变量给其他变量时，此变量的二进制数据会从一个变量复制到另一个变量的内存空间中，但并不关心为元素指定的数据类型。






LSet 语句示例
本示例使用 LSet 语句，将某字符串插入到另一字符串的最左边。虽然 LSet 也能用来复制一个用户自定义类型变量的内容到另一个不一定完全一样，但却兼容的用户自定义类型变量中，但并不建议使用这种方法。因为不同操作系统间对数据结构的做法不同，使用 LSet 的程序并不能保证有很好的移植性。

Dim MyString
MyString = "0123456789" ' 设置字符串初值。
Lset MyString = "<-Left" ' MyString 的内容为 "<-Left "。

[zyl910]

RSet 语句


在一字符串变量中将一字符串往右对齐。

语法

RSet stringvar = string

RSet 语句的语法有下面这些部分：

部分 说明
stringvar 必要参数。为字符串变量名。
String 必要参数。在 stringvar 内想往右对齐的字符串表达式。


说明

如果 stringvar 比 string 长，Rset 会将 stringvar 中空余的字符以空白代替，直至字符串开头。

注意 RSet 不能用于用户定义类型。




RSet 语句示例
本示例使用 RSet 语句将某字符串插入到另一字符串的最右边。

Dim MyString
MyString = "0123456789" ' 设置字符串初值。
Rset MyString = "Right->" ' MyString 的内容为 " Right->"。

[zyl910]

String 函数


返回 Variant (String)，其中包含指定长度重复字符的字符串。

语法

String(number, character)

String 函数的语法有下面的命名参数：

部分 说明
number 必要参数；Long。返回的字符串长度。如果 number 包含 Null，将返回 Null。
character 必要参数；Variant。为指定字符的字符码或字符串表达式，其第一个字符将用于建立返回的字符串。如果 character 包含 Null，就会返回 Null。


说明

如果指定 character 的数值大于 255，String 会按下面的公式将其转为有效的字符码：

character Mod 256





String 函数示例
本示例使用 String 函数来生成一指定长度，且只含单一字符的字符串。

Dim MyString
MyString = String(5, "*") ' 返回 "*****"。
MyString = String(5, 42) ' 返回 "*****"。
MyString = String(10, "ABC") ' 返回 "AAAAAAAAAA"。