vb课后题答案(1-8章).pdfVIP

第一 选择 判断 1-5 6-7 1-5 6-10 CDCAB DB √×√√× ×√√√× 第二 选择 1-5 6-10 B ADC C DBC 填空 1、“”、# 2、0 、空串 3、+、、 4 、date、time 5、Mod 6、[10,78] 7 、const 8、“Shanghai” 9、 VVV 10、窗体或标准模块、option explicit 表达式 1、(-b+sqr(b^2-4*a*c))/(2*a) 2、cos(31*3.14/180)^2+5*exp(3) 3、(x+y+z)/sqr(x^3+y^3+z^3) 4 、8*exp(x)*log(10) 5、2*sin((x+y)/2)*cos((x-y)/2) 6、(x^2+y^2)/(2*a^2) 7 、x^(1/3)*y^(1/4) 8、(3+a)^2/(2*c+4*d) 判断 1-5 6-10 11-15 √×√×× ×√√×× ×√×√× 表达式的值 1、30 2、0 3、14 4 、 9 5、 11 6、 5 7 、 1 8、 65 VB 第三 选择 1-5 6-10 11-14 AABCB C CCB A DC 填空 1、autoredraw 2、cancel 3 、autosize 、 4 、2 3 2 5、Rem 或 单引号、冒号、 wordwrap 3 3 1 下划线 6、locked、 7 、selstart 8、sellength enabled 编程 1、Sub Text1_change() 2、Command1_click() 3、Dim a%, b%, c%, x1!, x2!, delta Dim shu# Dim x,y,t a = Text1: b = Text2: c = Text3 Shu=text1 X=text1 delta = b ^ 2 - 4 * a * c Text2=-shu Y=text2 If delta = 0 Then Text3=shu^2 T=x x1 = (-b + Sqr(delta)) / (2 * a) Text4=sqr(abs(shu)) X=y