' 请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码, 使程序完善 Private mand1_Click() Dim x As Single, y As Single a= 3:b= -5 ①= Val(InputBox(" 请输入 x 的值")) Ifx<0 Then ②=x+5*a Else y=x-2*b③ Print "y="; CStr(y) End Sub 2、打开“考生文件夹\596\ 工程 1.vbp ”,完善程序并保存。实现功能: 当在文本框 Text1 中输入圆的半径后, 单击“计算”按钮, 计算圆的周长,并在文本框 Text2 中显示出来。'填空完成程序,使得当在 Text1 中输入圆的半径后,单击"计算"按钮,计算圆的周长,并在 Text2 中显示出来。'注:请不要更改原程序结构,删除①、②、③,并在对应的位置填写正确代码 Private mand1_Click() Const pi= 3.14 '定义符号常量 Dim c As Single '定义周长 c为单精度型 Dim r As Single '定义半径 r为单精度型 r= Val( ①)c= pi*②③= CStr(c) End Sub 3、打开“考生文件夹\611\ 工程 1.vbp ”,完善程序并保存。实现功能:当单击“显示”按钮后, Text1 、 Text2 分别显示交换后的变量 x、y值。' 填空完成程序,使得单击"显示" 按钮时, Text1 、 Text2 分别显示变量 x、y 的值。'注:请不要更改原程序结构,删除①、②、③,并在对应位置填写正确的代码 Private mand1_Click() Dim x,y As Integer x= 10 1b 2t 3a 4b1x 2y 3 end if ① text1.text ② r*2 ③ text2.text
全文预览
