填空题下面的程序执行时，可以从键盘输入一正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867；输入1000，则输出0 0 0 1。请填空。 Private Sub Command1_Click() Dim x As Integer x=InputBox("请输入一个正整数") While x＞{{U}} {{/U}}Print x Mod 10; x=x//10 Wend Print{{U}} {{/U}}End Sub

填空题度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为______。