我正在尝试安装SQL Server 2012 Management Studio,在此过程中,其中一条规则仍然失败:
'之前需要更新的Visual Studio 2010实例'
当我尝试从!> Return an element's atomic number based on its symbol.
program elements
use iso_fortran_env, only: input_unit, output_unit
implicit none
character(len=*), parameter :: alpha_u = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
character(len=*), parameter :: alpha_l = 'abcdefghijklmnopqrstuvwxyz'
character(len=*), parameter :: elblob = &
'**H _He_Li_Be_B _C _N _O _F _Ne_Na_Mg_Al_Si_P _S _Cl_Ar_K _Ca_Sc_' &
// 'Ti_V _Cr_Mn_Fe_Co_Ni_Cu_Zn_Ga_Ge_As_Se_Br_Kr_Rb_Sr_Y _Zr_Nb_Mo_' &
// 'Tc_Ru_Rh_Pd_Ag_Cd_In_Sn_Sb_Te_I _Xe_Cs_Ba_La_Ce_Pr_Nd_Pm_Sm_Eu_' &
// 'Gd_Tb_Dy_Ho_Er_Tm_Yb_Lu_Hf_Ta_W _Re_Os_Ir_Pt_Au_Hg_Tl_Pb_Bi_Po_' &
// 'At_Rn_Fr_Ra_Ac_Th_Pa_U _Np_Pu_Am_Cm_Bk_Cf_Es_Fm_Md_No_Lr_Rf_Db_' &
// 'Sg_Bh_Hs_Mt_Ds_Rg_Cn_Nh_Fl_Mc_Lv_Ts_Og'
character(len=2) :: elseek
character(len=1) :: c
integer :: atomic_number
404 format("Sorry, I couldn't find ", '"', A, '"')
200 format("The element ", A, " has an atomic number of ", I0)
500 format('"', A, '" must be ', A, ' case letter')
continue
write(output_unit, '(A)') "Give me an element's symbol " &
// "(like H or Na)"
read(input_unit, '(A2)') elseek
! Left-justify; eliminates any leading space
! (Q: is leading space even possible?)
elseek = adjustl(elseek)
c = elseek(1:1)
if (verify(c, alpha_u) > 0) then
write(output_unit, 500) c, 'an upper'
stop(1)
end if
c = elseek(2:2)
if (verify(c, alpha_l // ' ') > 0) then
write(output_unit, 500) c, 'a lower'
stop(2)
end if
atomic_number = index(elblob, elseek)
if (atomic_number < 1) then
write(output_unit, 404) elseek
else
atomic_number = atomic_number / 3
write(output_unit, 200) elseek, atomic_number
end if
end program elements
安装补丁时,它会回滚。有什么帮助吗?
这是我到目前为止安装 VS10sp1-KB983509.msp 更新但keps回滚的唯一解决方案。
我重复这个问题的解决方案是,建议安装更新包,我无法安装,因为它不断回滚。所以任何帮助人员,而不仅仅是将其标记为重复。
答案 0 :(得分:1)
刚才有同样的问题。 补丁可能只是缺少特权。
我能够继续这样做。
找到并运行VS10sp1-KB983509.msp
C:\WINDOWS\system32>F:
F:\>cd redist
F:\redist>cd VisualStudioShell
F:\redist\VisualStudioShell>VS10sp1-KB983509.msp
我希望这可以提供帮助。