填空题

下列程序段运行后，a的值为______。
a=600
b=50
a=a+b
b=a-b
a=a-b

【参考答案】

50
<上一题 目录 下一题>
热门 试题

填空题
建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录内容显示在立即窗口。 Private Type PerData Name1 As String Phon As String *11 Address As String *10 PostCd As String *6 End Type ______ ’定义PerData类型的变量xData Private Sub Form_Load() Open C: phonBook.txt For Random As 1 End Sub Private Sub Command1_Click() xData.Name1=Text1.Text xData.Phon=Text2.Text ______=Text3.Text ’地址 xData.PostCd=Text4.Text Put #1,1,xData Text1.Text= :Text2.Text= Text3.Text= :Text4.Text= End Sub Private Sub Command2_Click() reno=LOF(1) Len(xData) i=1 Do While i＜=reno Get #1,i,xData Debug.Print xData.Name 1,______,xData.Address,xData.PostCd i=i+1 Loop End Sub
填空题
在窗体上设计两个复选框，一个显示粗体，另一个显示斜体，通过对复选框的选择，在一个文本框中显示相应效果的文本，请完成下列程序。 Private Sub Form_Load() Check1.Caption= 显示粗体 Check2.Caption= 显示斜体 Text1.Text= May you a happy day! End Sub Private Sub Check1_Click() If ______=1 Then Text1.FontBold=True Else Text1.FontBold=False End If End Sub Private Sub Check2_Click() If Check2.Value=1 Then Text1.______ Else Text1.______ End If End Sub
相关试题