For friends to see a program where there is a problem? Enclosed is the interface and language.-CodePudding

Program can only run to the If Option9. The Value and the text. 16 shows the operation result
 Private Sub Command1_Click () 
Dim p As Double, n1 As Double, I As a Double, Ka As Double, Pca As Double 
If Text1. Text="Or" Val (Text1. Text) & lt; 0 Then MsgBox "please input the correct power, try again!" : 

If Text2. Text="Or" Val (Text2. Text) & lt; 0 Then MsgBox "please input the correct belt wheel speed, try again!" : 


If Text3. Text="Or" Val (Text3. Text) & lt; 0 Then MsgBox "please input the correct gear ratio, try again!" : 


If Option8. Value=https://bbs.csdn.net/topics/False And Option9. Value=False Then MsgBox "start, please select a try again!" : 


If Option5. Value=https://bbs.csdn.net/topics/False And Option6. Value=False And Option7. Value=False Then MsgBox "working hours a day, please choose a, try again!" : 


If Option1. Value=https://bbs.csdn.net/topics/False And Option2. Value=False And Option3. Value=False And Option4. Value=False Then MsgBox "load changes please select a, try again!" : 
P=Val (Text1. Text) 
N1=Val (Text2. Text) 
I=Val (Text3. Text) 
Ka=Val (Text4. Text) 
If Option8. Value=https://bbs.csdn.net/topics/True And Option5. Value=True And Option1. Value=True Then 
Ka=1 
Text4. Text=Str (Ka) 
End the If 
If Option8. Value=https://bbs.csdn.net/topics/True And Option5. Value=True And Option2. Value=True Then 
Ka=1.1 
Text4. Text=Str (Ka) 
End the If 
If Option8. Value=https://bbs.csdn.net/topics/True And Option5. Value=True And Option3. Value=True Then 
Ka=1.2 
Text4. Text=Str (Ka) 
End the If 
If Option8. Value=https://bbs.csdn.net/topics/True And Option5. Value=True And Option4. Value=True Then 
Ka=1.3 
Text4. Text=Str (Ka) 
End the If 
If Option8. Value=https://bbs.csdn.net/topics/True And Option6. Value=True And Option1. Value=True Then 
Ka=1.1 
Text4. Text=Str (Ka) 
End the If 
If Option8. Value=https://bbs.csdn.net/topics/True And Option6. Value=True And Option2. Value=True Then 
Ka=1.2 
Text4. Text=Str (Ka) 
End the If 
If Option8. Value=https://bbs.csdn.net/topics/True And Option6. Value=True And Option3. Value=True Then 
Ka=1.3 
Text4. Text=Str (Ka) 
End the If 
If Option8. Value=https://bbs.csdn.net/topics/True And Option6. Value=True And Option4. Value=True Then 
Ka=1.4 
Text4. Text=Str (Ka) 
End the If 
If Option8. Value=https://bbs.csdn.net/topics/True And Option7. Value=True And Option1. Value=True Then 
Ka=1.2 
Text4. Text=Str (Ka) 
End the If 
If Option8. Value=https://bbs.csdn.net/topics/True And Option7. Value=True And Option2. Value=True Then 
Ka=1.3 
Text4. Text=Str (Ka) 
End the If 
If Option8. Value=https://bbs.csdn.net/topics/True And Option7. Value=True And Option3. Value=True Then 
Ka=1.4 
Text4. Text=Str (Ka) 
End the If 
If Option8. Value=https://bbs.csdn.net/topics/True And Option7. Value=True And Option4. Value=True Then 
Ka=1.5 
Text4. Text=Str (Ka) 
If Option9. Value=https://bbs.csdn.net/topics/True And Option5. Value=True And Option1. Value=True Then 
Ka=1.1 
Text4. Text=Str (Ka) 
End the If 
If Option9. Value=https://bbs.csdn.net/topics/True And Option5. Value=True And Option2. Value=True Then 
Ka=1.2 
Text4. Text=Str (Ka) 
End the If 
If Option9. Value=https://bbs.csdn.net/topics/True And Option5. Value=True And Option3. Value=True Then 
Ka=1.4 
Text4. Text=Str (Ka) 
End the If 
If Option9. Value=https://bbs.csdn.net/topics/True And Option5. Value=True And Option4. Value=True Then 
Ka=1.5 
Text4. Text=Str (Ka) 
End the If 
If Option9. Value=https://bbs.csdn.net/topics/True And Option6. Value=True And Option1. Value=True Then 
Ka=1.2 
Text4. Text=Str (Ka) 
End the If 
If Option9. Value=https://bbs.csdn.net/topics/True And Option6. Value=True And Option2. Value=True Then 
Ka=1.3 
Text4. Text=Str (Ka) 
End the If 
If Option9. Value=https://bbs.csdn.net/topics/True And Option6. Value=True And Option3. Value=True Then 
Ka=1.5 
Text4. Text=Str (Ka) 
End the If 
If Option2. Value=https://bbs.csdn.net/topics/True And Option6. Value=True And Option4. Value=True Then 
Ka=1.6 
Text4. Text=Str (Ka) 
End the If 
If Option9. Value=https://bbs.csdn.net/topics/True And Option7. Value=True And Option1. Value=True Then 
Ka=1.3 
Text4. Text=Str (Ka) 
End the If 
If Option9. Value=https://bbs.csdn.net/topics/True And Option7. Value=True And Option2. Value=True Then 
Ka=1.4 
Text4. Text=Str (Ka) 
End the If 
If Option9. Value=https://bbs.csdn.net/topics/True And Option7. Value=True And Option3. Value=True Then 
Ka=1.6 
Text4. Text=Str (Ka) 
End the If 
If Option9. Value=https://bbs.csdn.net/topics/True And Option7. Value=True And Option4. Value=True Then 
Ka=1.8 
Text4. Text=Str (Ka) 
End the If 
nullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnull