嘗試為我的孩子制作帶有 Visual basic (2015) 的 Windows 應用程式，以幫助他們進行閱讀。
制作了 3 個標簽 ( Box1, Box2, Box3)，每個標簽可以包含 1 個字母，但也可以包含 2 或 3 個字母串（如“ea”、“ou”、“tr”、“str”...）。
還有一個帶有點擊功能的標簽，所以預定義的字母會隨著每次點擊在每個框中隨機變化。
我設法在框中獲得了單獨的預定義單個字母，但找不到在這些框中獲得 2 個連續字母的方法。
任何人都可以幫助我。
結果示例：
consonants vowels consonants
m a p => map
m a rs => mars
m ea n => mean
m ee t => meet
spr i ng => spring
我的 VB 代碼直到現在是：
Public Class VLLK1_2
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rand As New Random
Dim letter As String = "gkmnprstv "
Dim consonant As String = "gkmnprts "
Dim vowel As String = "aei"
letter = letter.Substring(rand.Next(letter.Length), 1)
Box1.Text = letter
vowel = vowel.Substring(rand.Next(vowel.Length), 1)
Box2.Text = vowel
consonant = consonant.Substring(rand.Next(consonant.Length), 1)
Box3.Text = consonant
End Sub
End Class
uj5u.com熱心網友回復：
我不是單詞專家，但是創建包含您想學習的單詞的 List(of String) 不會像剛才提到的那樣更容易。然后隨機選擇每個單詞并將其分成 3 部分并將這些部分添加到您的文本框中？
Private rand As New Random
Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
Dim ListW As New List(Of String)
ListW.Add("apple")
ListW.Add("pinaple")
ListW.Add("pen")
ListW.Add("orange")
ListW.Add("water")
'select random word from list
Dim randW As String = ListW(rand.Next(0, ListW.Count - 1))
'Dim randW = "pinaple"
'find the integer divider value
Dim div As Integer = randW.Length / 3
'divide the word into 3 parts
Dim leftP As String = Strings.Left(randW, div)
Dim midP As String = Strings.Left(Strings.Mid(randW, div 1), div)
Dim reminderLenght = randW.Length - (leftP.Length midP.Length)
Dim rightP As String = Strings.Right(randW, reminderLenght)
'now add the parts to text boxes
tb1.Text = leftP
tb2.Text = midP
tb3.Text = rightP
End Sub
End Class
預覽：
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/393722.html