VB如何将数个text文本框里词语组成多个组合 比如将 牛.羊.猪.狗.猫五个选四个进行组合成 羊牛猪狗 等类似这个问题,不过我想输出的是中文

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 05:33:58
VB如何将数个text文本框里词语组成多个组合 比如将 牛.羊.猪.狗.猫五个选四个进行组合成 羊牛猪狗 等类似这个问题,不过我想输出的是中文

VB如何将数个text文本框里词语组成多个组合 比如将 牛.羊.猪.狗.猫五个选四个进行组合成 羊牛猪狗 等类似这个问题,不过我想输出的是中文
VB如何将数个text文本框里词语组成多个组合 比如将 牛.羊.猪.狗.猫五个选四个进行组合成 羊牛猪狗 等
类似这个问题,不过我想输出的是中文

VB如何将数个text文本框里词语组成多个组合 比如将 牛.羊.猪.狗.猫五个选四个进行组合成 羊牛猪狗 等类似这个问题,不过我想输出的是中文
稍稍改下就行了
Private Sub Command1_Click()
Dim s As String,n As Integer
Dim a(1 To 5) As String
a(1) = "牛"
a(2) = "羊"
a(3) = "猪"
a(4) = "狗"
a(5) = "猫"
n = 0
Text1.Text = ""
For l = 1 To 2
For i = l + 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
s = a(l) & a(i) & a(j) & a(k) & vbCrLf
n = n + 1
Text1.Text = Text1.Text & s
Next
Next
Next
Next
Text1.Text = Text1.Text & "共有 " & n & " 种"
End Sub

数组部分改一下就行.
Dim a(1 To 5) As string
a(1) = "牛"
a(2) = "羊"
a(3) = "猪"
a(4) = "狗"
a(5) = "猫"
循环输出部分,再加一层, 以前是4选3, 你的是5选4

VB如何将数个text文本框里词语组成多个组合 比如将 牛.羊.猪.狗.猫五个选四个进行组合成 羊牛猪狗 等类似这个问题,不过我想输出的是中文 在VB里,用什么函数可以得出一个文本框里的计算式的值? VB 如何将text中的特定文字和词语转换成特定的词语譬如“一”转换为aa二十一转换为abc VB里的问题我这段查询是在一个文本框里显示的.我想改成表格形式的.Private Sub Command2_Click()'查询If Combo1.Text = ThenMsgBox 你没有选择查询方式,请选择!,16,错误提示!Exit SubEnd IfIf Combo1 全部记 VB.NET 如何计算时间差如何利用VB.NET计算时间差textbox1.text开始时间textbox2.text结束时间textbox3.text结束-开始时间 VB里如何做个可以计算sin和cos的计算器? 求代码在文本框中输入一个弧度 可以在标签里显示出sin的值 不知道代码怎么编 vb中format函数怎样定义的vb中语句:hour = format(txthuor.text,00)'其中hour为自定义变量,txthour为文本框的name,问:format函数是怎样取值的 VB text组click清空代码如下:Private Sub text1_click()Dim i As Integeri = 1DoText1(i).Text = i = i + 1Loop Until i = 7End Sub 有7个text1组,由于每次点文本框时有”text1“,要先删后输,我想第一次点击文本框时里面 VB 条件语句+限制文本框输入 条件语句问题:如果Text1.texe = A 则 text6.text = 10 '国文如果Text1.texe = A+ 则 text6.text = 12如果Text1.texe = B 则 text6.text = 14如果Text1.texe = C 则 text6.text = 16如 VB 一张图中绘制多条实时曲线四个text分别实时生成随机数,然后将text里值分别赋给四个Y,以时间为横坐标,在一张图里绘制这四个Y.以下是我的代码,错误的.请指教.谢谢. 再次补充问题,四个text 在VB里怎样产生N个随机两位数啊,N根据TEXT里自己输入的值变化. vb程序简答题1.在一个窗体中只能选择一个单选按钮吗?如果不能选择多个,请说明原因;如果能选择多个,请说明如何做才能选择多个2.数学式(2x-a)(3y+b)对应的VB表达式是什么?3.为了防止文本框 vb中定义的d为双精度变量,设d=text1.text,text1.text里输入的是12.3625 为啥运行时d=36.2500, vb,我想要问的是我要在文本框输入一串英文句子,然后按单词分解到列表框中!该怎么办?我写了一段代码:Dim midd As StringFor i = 1 To Len(Text1.Text)If mid(Text1.Text,i,1) = ThenList1.AddItem cc = Elsec = c + 求vb随机数代码我又厚着脸皮来了,继续求随机数代码,求一段vb代码,三个text文本框,其中前两个为随机数产生的范围,如1-100.或者15-29,后面一个为随机数产生的个数,所有的都为正整数,不能有重 几道VB题选择1.在文本框输入,ABCD,四个字符时,窗口上的显示是__________.Sub TextBox1_TextChanged(……) Handles TextBox1.TextChangedLabel1.text &=Textbox1.TextEnd SubA. ABCD B.A C. AABABCABCD D. A B AB C ABCD ABCD2.下列 VB输任意1个不超过9位的正整数,求该整数的全部数字组成的同样位数最大正整数、最小数 结果放text中 vb open语句用法请问在VB里,如何使用OPEN语句?