文字制限方法。

質問

どなたか知識ある方、教えてください。
ソートプログラムの演習をしているんですが、
どのように書いていいか悩んでます。現在の課題はtextが１０個あり、sortボタンをクリックすると左から数字を小さい順に並びます、数字のみ入力可、空白でもエラーなしで（全て空白はエラー）とりあえず数字があれば１０個埋めていなくても並べる、文字等はエラーを出したいです。
'配列のインデックス番号の開始に１を設定
Option Base 1
Option Explicit
Private Sub cmdCLEAR_Click()
'変数の宣言
Dim ans As Integer
Dim i As Integer

'消去する際の確認事項
ans = MsgBox("消去していいですか？", vbYesNo + vbQuestion)
Select Case ans
Case vbYes
For i = 1 To 10 Step 1
Text(i).Text = ""
Next i
Case vbNo
MsgBox "取り消します", vbInformation
End Select
End Sub
Private Sub cmdSORT_Click()
'変数の宣言
Dim intNum(10) As Integer
Dim S As Integer
Dim j As Integer
Dim k As Integer
Dim i As Integer
'配列の整理
For i = 1 To 10 Step 1
intNum(i) = Int(Text(i).Text)
Next i

'バブルソート
For k = 1 To 9 Step 1
For j = 1 To 9 Step 1
If intNum(j) > intNum(j + 1) Then
S = intNum(j)
intNum(j) = intNum(j + 1)
intNum(j + 1) = S
End If
Next j
Next k
'結果を返して表記する
For i = 1 To 10 Step 1
Text(i).Text = intNum(i)
Next i
End Sub
現在書いたのはここまででどうしてもエラーと文字制限の方法はわからないので教えていただける方、宜しくお願いします。

回答No.5

ctrlzr

Private Sub cmdSORT_Click()で（）の中には中にまず何も書けません。
⇒()の中は、イベントでOSから渡される引数なので、何も書けないのは当然です。

誤解があるといけないので書きますが、setTextは、cmdSORT_Click()の外に定義した関数です。
Private Sub cmdSORT_Click()
：
End sub

private function setText(byval s as string) as Variant
：
end function

演習と言うことで、制限が多いのだと思いますが、integer,string,Isnumericしか使えないのであれば、配列を定義するところを変える必要があります。
Dim intNum() As Integer
dim idx as integer
idx = 0
For i = 1 To 10 Step 1
if　isNumeric(Text(i).Text) then
idx = idx + 1
end if
Next i

if (idx=0) then
msgbox "有効な数字を1つ以上入れてください"
exit sub
end if

redim intNum(idx) As Integer
'バブルソート

'結果を返して表記する

For i = 1 To idx Step 1
Text(i).Text = intNum(i)
Next i

For i = idx To 10 Step 1
Text(i).Text = ""
Next i

integer型の変数を定義すると、デフォルトで"0"が入ります。そのため、配列をそのままTextへ入れると、空白が"0"になってしまうので、数値が入っている個数を数えて対応する必要があります。

補足

いま気合でなんとかできました。エラー項目はまだですがなんとか動きます。ありがとうございました。
Private Sub cmdSORT_Click()
'変数の宣言
Dim intNum(10) As Integer
Dim i As Integer
Dim S As Integer
Dim j As Integer
Dim k As Integer
Dim intCount As Integer 'ソート対象テキストボックス数

intCount = 0

'配列の整理
For i = 1 To 10 Step 1
If Text(i).Text <> "" And IsNumeric(Text(i).Text) = True Then
intNum(i) = CInt(Text(i).Text)
intCount = intCount + 1
End If
Next i
'バブルソート
For k = 1 To intCount - 1 Step 1
For j = 1 To intCount - 1 Step 1
If intNum(j) > intNum(j + 1) Then
S = intNum(j)
intNum(j) = intNum(j + 1)
intNum(j + 1) = S
End If
Next j
Next k
'結果を返して表記する
For i = 1 To 10 Step 1
If i > intCount Then
Text(i).Text = ""
Else
Text(i).Text = intNum(i)
End If
Next i