以下程序用于计算“1+1/3+1/5+…+1/(2n+1)”,直至“1/(2n+1)”小于10-4。阅读下面程序,请在【 】和【 】处填上正确内容。 Private Sub Command1_Click() Sum = h: n = i do n=【 】 term =1/ n Sum = Sum + term if term <0.0001 then【 】 Loop Text1.Text = n Text2 *Text = Sum End Sub
查看答案
以下程序的功能是:把当前目录下的顺序文件smtextl.txt的内容读入内存,并在文本框Texd中显示出来。请填空。 Pfivme Sub Commandl_Click() Dim inData As String Textl.Text ="" Open".\smtextl.txt"【 】As1 Do While【 】 Input1,in Data Text1.Text=Text1.Text&inData Loop Close1 End Sub
是柴油机排放的主要有害成分之一。
A. CO
B. HC
C. NOX
D. 炭烟
EQ1092型汽车的车轮制动器为()式制动器。
A. 单向助势平衡
B. 双向助势平衡
C. 凸轮
D. 自动增力
在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),然后编写如下几个事件过程: Private Sub Form_Load() Timer1.Enabled=False Timer1.Interval=【 】 End Sub Private Sub Form_Click() Timer1.Enabled=【 】 End Sub Private Sub Timer1_Timer() Label1.Caption=【 】 End Sub 程序运行后,单击窗体,将在标签中显示当前时间,每隔1秒钟变换一次(见图)。请填空。