《2022年测绘程序设计试卷及答案 .pdf》由会员分享,可在线阅读,更多相关《2022年测绘程序设计试卷及答案 .pdf(5页珍藏版)》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、一 选择题、将数值型字符串转换成数值的函数是(b)、Ltrim()、Val()、Left()、Instr()、可获得当前系统日期的函数是(a)、Date()、Time()、IsDate()、Year()、退出 For 循环可使用的语句为(a)、Exit For、Exit Do、End For、End Do 、32+8,该表达式的结果为(b)、14、17、11、9 、数组X 中合法的数组元素可表示为(c)。Ax9 Bx9 CX(i+1)DX6 6、文本框的(a)属性用于设置或返回文本框中的文本内容。、Text、(名称)、Caption、Name 7、数学表达式 Sin 30写成 VB 表达式是(
2、d)。ASin30 BSin(30)CSin(30)DSin(30*314180)8、函数“Int(Rnd(0)*10)+1”是(d)范围内的整数。A(0,100)B(1,100)C(0,10)D(1,10)9、下列符号中哪个是VB 程序中合法的变量名(a )A、ab7 B、7ab C、If D、a*bc 10、X 是小于 100 的非负数,用VB 表达式表达正确的是(c )A、0 X 100 B、0=X100 C、0=X and X100;D、0 X 60 Then Score=1 名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页,共 5 页 -If a 70 Then Score=
3、2 If a 80 Then Score=3 If a 90 Then Score=4 Print Score=;Score 8、阅读以下应用说明以及在VB 开发过程中进行的属性设置和所编写的程序代码,填空。应用说明 本应用程序的运行窗口及其功能说明如下:程序事先设定密码为”abc”,要求用户在文本框中输入密码,然后单击“校验密码”命令按钮,程序将核对用户输入的密码与事先设定的密码是否一致。如果一致,则通过MsgBox 语句弹出消息框提示“密码正确,欢迎进入!”;否则弹出消息框提示“密码不正确,谢绝进入!”。当用户单击“重新输入”命令按钮,则清空文本框中内容,且将光标定位到文本框中。当单击“退
4、出”命令按钮时,退出应用程序。属性设置 对象对象名属性名属性值设置命令按钮Commandl Caption重新输入命令按钮Command2 Caption核对密码命令按钮Command3 Caption退出文本框Text1 Text (置空)文本框Text1 PasswordChar _abc_ 程序代码 Private Sub Command1_Click()_ Text1.text=”_ End Sub Private Sub Command2_Click()Dim pw As String pw=abc If _text1.text=abc_ Then MsgBox 密码正确,欢迎进入!
5、Else _msgbox”密码不正确,谢绝进入”_ End If End Sub Private Sub Command3_Click()_end_ End Sub 三 编写程序题。(40 分)1、将角度值转化为弧度值的划算(8 分)(度、分、秒分别为a、b、c,弧度 R,单击按钮command1 开始计算)Private Sub Command1_Click()Dim a,b,c as integer Dim tatol as single 名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页,共 5 页 -a=val(Text1.Text)b=val(Text2.Text)c=val(
6、Text3.Text)tatol=a+b/60+c/3600 text4.text=tatol*2*3.14/360 End Sub 2、打印九九乘法表Private Sub Form_Click()Dim i%,j%For i=1 To 9 For j=1 To i Print i&*&j&=&i*j;Next j Print Next i 3、判断坐标点所在象限的判断(说明 x,y)Private Sub Command1_Click()Dim x#,y#x=Val(Text1.Text)y=Val(Text2.Text)If y 0 And x 0 Then Print 点在第一象限 E
7、lseIf y 0 Then Print 点在第二象限 ElseIf y 0 And x 0 And x 0 Then Print 点在第四象限 End If End Sub 4、随机产生10 个 10100 之间的整数,放在一维数组中,并显示其最大最小值及下标(12分)名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页,共 5 页 -(说明:单击按钮command1 产生随机整数数组,数组显示在text1 文本框中,单击command2 显示一维数组的最大最小值及下标在text2 文本中)Option Base 1 Dim i,a(10),max,min As Integer Priv
8、ate Sub Command1_Click()Randomize For i=1 To 10 a(i)=Int(Rnd()*90+11)Text1.Text=Text1.Text&a(i)&,Next i End Sub Private Sub Command2_Click()max=1:min=1 For i=2 To 10 If a(max)a(i)Then min=i End If Next i Text2.text=”最大值为:”&a(max)&“,其下标为:”&max&“最小值为:”&a(min)&“其下标为:”&min End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页,共 5 页 -