Question

VB题，求高手解答

命令按钮Command1单击后，先将键盘上输入一个任意字符串按颠倒顺序显示，再统计该字符串是由那些不重复的字符组成的，共有几个字符。
例如：输入“pragra”，程序运行结果为：原始字符串x是：pragra 颠倒过来显示x字符串是：argarp x由prag这4个不重复字符组成
以下是未完成的程序代码，请将空白部分填上合适的内容。
Private Sub Command1_Click()
Dim x As String '原始字符串
Dim y As String
Dim n As Integer '统计不重复的字符个数
x = 【9】
Print "原始字符串x是："; x
y = ""
For i = 【10】
y = y + Mid(x, i, 1)
Next i
Print "颠倒过来显示x字符串是："; y
n = 0
y = ""
For i = 1 To Len(x)
s = Mid(x, i, 1)
j=1
Do While j<I
If 【11】______________ Then
Exit Do
Else
【12】________________
End If
Loop
If 【13】 Then
n = n + 1
y = y + s
End If
Next i
Print "x由" + y + "这"+ 【14】 + "个不重复字符组成"
End Sub
3． 设计一个倒计时程序，界面设计如图所示，有一个单选按钮组optPT，标题分别为“倒数1分钟”“ 倒数5分钟”“ 倒数10分钟”，默认为“倒数5分钟”。有一个计时器Timer1，其Interval值为1000。标签lblShow中显示剩余时间的秒数，另外用形状控件Shape1的宽度来模拟剩余时间，时间减少则Shape1的宽度也相应按比例缩短。运行后，单击“开始”按钮cmdStart后开始倒计时至0停止。请补充完成该程序功能的相应的事件过程的代码。

Dim shapeLen as Long
【15】_______________________
Private Sub Form_Load( )
【16】______________________________ ’默认选择“倒数5分钟 ”
lblShow.Caption=300
T=5
Timer1.Enabled=False
shapeLen=Shape1.Width
End Sub
Private Sub optPt_Click( Index as Integer)
Select Case 【17】______________________
Case 0 : T=1
Case 1 : T=5
Case 2 : T=10
End Select
lblShow.Caption= val(T*60)
End Sub
Private Sub cmdStart_Click ( )
【18】____________________________
End Sub
Private Sub Timer1_Timer( )
Spt=T*60
【19】___________________________
Shape1.Width=【20】___________________________________
If Val(lblShow.Cation)=0 Then
Timer1.Enabled=False
End If
End Sub

Answer 1

已经解答。第一题免费的。
Private Sub Command1_Click()
Dim x As String '原始字符串
Dim y As String
Dim n As Integer '统计不重复的字符个数
x = InputBox("请输入一个字符串", "提示")
Print "原始字符串x是："; x
y = ""
For i = Len(x) To 1 Step -1
y = y + Mid(x, i, 1)
Next i
Print "颠倒过来显示x字符串是："; y
n = 0
y = ""
For i = 1 To Len(x)
s = Mid(x, i, 1)
j = 1
Do While j < i
If Mid(x, j, 1) = s Then
Exit Do
Else
j = j + 1
End If
Loop
If j = i Then
n = n + 1
y = y + s
End If
Next i
Print "x由" + y + "这" + Str(n) + "个不重复字符组成"
End Sub

追问

高手。这题怎么晕

做

追答

正确答案59

追问

怎么做的，求过程不懂

追答

免费答案，还想怎样，呵呵。

追问

谢谢，呵呵

Answer 2

'命令按钮Command1单击后，先将键盘上输入一个任意字符串按颠倒顺序显示，再统计该字符串是由那些不重复的字符组成的，共有几个字符。
'例如：输入“pragra”，程序运行结果为：原始字符串x是：pragra    颠倒过来显示x字符串是：argarp    x由prag这4个不重复字符组成
'以下是未完成的程序代码，请将空白部分填上合适的内容。
Private Sub Command1_Click()
   Dim x As String '原始字符串
   Dim y As String
   Dim n As Integer '统计不重复的字符个数
   x = InputBox("请输入字符串x！")
   Print "原始字符串x是："; x
   y = ""
   For i = 1 To Len(x)
       y = y + Mid(x, i, 1)
   Next i
   Print "颠倒过来显示x字符串是："; y
   n = 0
   y = ""
    For i = 1 To Len(x)
       s = Mid(x, i, 1)
       j = 1
       Do While j < i
           If Mid(y, j, 1) = s Then
               Exit Do
           Else
               j = j + 1
           End If
       Loop
       If j = i Then
            n = n + 1
            y = y + s
       End If
   Next i
   Print "x由" + y + "这" + Str(n) + "个不重复字符组成"
End Sub
'3． 设计一个倒计时程序，界面设计如图所示，有一个单选按钮组optPT，标题分别为“倒数1分钟”“ 倒数5分钟”“ 倒数10分钟”，默认为“倒数5分钟”。有一个计时器Timer1，其Interval值为1000。标签lblShow中显示剩余时间的秒数，另外用形状控件Shape1的宽度来模拟剩余时间，时间减少则Shape1的宽度也相应按比例缩短。运行后，单击“开始”按钮cmdStart后开始倒计时至0停止。请补充完成该程序功能的相应的事件过程的代码。
Dim shapeLen As Long
Dim T As Integer
Private Sub Form_Load()
Optpt(1).Value = True '默认选择“倒数5分钟 ”
lblShow.Caption = 300
T = 5
Timer1.Enabled = False
shapeLen = Shape1.Width
End Sub
Private Sub optPt_Click(Index As Integer)
 Select Case Index
   Case 0:    T = 1
   Case 1:    T = 5
   Case 2:    T = 10
 End Select
 lblShow.Caption = Val(T * 60)
End Sub
Private Sub cmdStart_Click()
 Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    spt = T * 60
    lblShow.Caption = Val(lblShow.Caption) - 1
    Shape1.Width = Val(lblShow.Caption) / spt * shapeLen
  If Val(lblShow.Caption) = 0 Then
  Timer1.Enabled = False
 End If
End Sub