2022年测绘程序设计试卷及答案 .pdf
一 选择题、将数值型字符串转换成数值的函数是（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 表达式是(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=2 If a 80 Then Score=3 If a 90 Then Score=4 Print Score=;Score 8、阅读以下应用说明以及在VB 开发过程中进行的属性设置和所编写的程序代码，填空。应用说明 本应用程序的运行窗口及其功能说明如下：程序事先设定密码为”abc”，要求用户在文本框中输入密码，然后单击“校验密码”命令按钮，程序将核对用户输入的密码与事先设定的密码是否一致。如果一致，则通过MsgBox 语句弹出消息框提示“密码正确，欢迎进入！”；否则弹出消息框提示“密码不正确，谢绝进入！”。当用户单击“重新输入”命令按钮，则清空文本框中内容，且将光标定位到文本框中。当单击“退出”命令按钮时，退出应用程序。属性设置 对象对象名属性名属性值设置命令按钮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 密码正确，欢迎进入！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(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 点在第一象限 ElseIf 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 Private 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 页 -
