问题 问答题 简答题

单调节调速器和双调节调速器指的是什么?

答案

参考答案:

如混流式和轴流定桨式水轮机,只采用改变导叶开度的方法来调节流量叫单调;而轴流转桨式水轮机采用改变导叶开度同时改变转轮叶片角度的方法来调节流量,此种方法叫双调;冲击式水轮机在改变喷针行程的同时,还采用协联动作改变折向器开度的方法调节流量,也叫双调。

单项选择题
多项选择题

在考生文件夹下有一个工程文件sjt5.vbp,其中含3个窗体,标题分别为“启动”、“注册”、“登录”,运行时显示“启动”窗体,单击其上的按钮时将弹出对应窗体以进行注册和登录。
注册信息放在全局数组users中,注册用户数(最多10个)放在全局变量n中(均已在标准模块中定义)。
注册时用户名不能重复,且“口令”与“验证口令”须相同,注册成功则在“启动”窗体的标签中显示“注册成功”,否则显示相应错误信息。登录时,检验用户名和口令,若正确,则在“启动”窗体的标签上显示“登录成功”,否则显示相应的错误信息。
标准模块中函数finduser()的功能是:在users数组中搜索用户名(即参数ch),找到则返回该用户名在users中的位置,否则返回0。
已经给出了所有控件和程序,但程序不完整,在Form2、Form3窗体文件中的横线处填写正确的内容。
注意:不得修改已经存在的程序和控件的属性,最后程序按原文件名存盘。
[题目提供的源程序]
1.标准模块源程序
Option Base 1
Public users(10,2) As String
Public n As Integer
Public Function finduser(ch As String) As Integer
For k=1 To 10
If users(k,1)=ch Then
finduser=k
Exit Function
End If
Next k
finduser=0
End Function
2.Form1源程序
Private Sub Command1_Click()
Form2.Text1=""
Form2.Text2=""
Form2.Text3=""
Label1.Caption=""
Form2.Show
End Sub
Private Sub Command2_Click()
Form3.Text2=""
Label1.Caption=""
Form3.Show
End Sub
3.Form2源程序
Private Sub Command1_Click()
Text1=""
Text2=""
Text3=""
End Sub
Sub writeusers()
n=n+ (1)
users(n,1)=Text1
users(n,2)=Text2
End Sub
Private Sub Command2_Click()
If Text1="" Then
MsgBox("必须输入用户名!")
Text1.SetFocus
ElseIf finduser(Trim $ (Text1))> (2) Then
MsgBox("此用户名已经存在!")
ElseIf Text2<>Text3 Then
MsgBox("口令验证错误!")
Else
writeusers
(3) ="注册成功!"
Form2.Hide
End If
End Sub
4.Form3源程序
Private Sub Command1_Click()
k=finduser(Trim $ (Text1))
If k= (4) Then
MsgBox("没有注册!")
ElseIf Trim $(Text2) <> users( (5) ) Then
MsgBox("口令错误!")
Else
Form1.Label1.Caption="登录成功!"
Form3.Hide
End If
End Sub